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APPLICATION OF ADVANCED COMPUTATIONAL PROCEDURES FOR 
MODELING SOLAR-WIND INTERACTIONS WITH VENUS - THEORY 
AND COMPUTER CODE 


by 


Stephen S. Stahara, Daniel Klenke, 
Barbara C. Trudinger, and John R. Spreiter 


SUMMARY 

Advanced computational procedures are developed and applied to the 
prediction of solar-wind interaction with nonmagnetic terrestrial-planet 
atmospheres, with particular emphasis to Venus. The theoretical method is 
based on a single-fluid, steady, dissipationless, magnetohydrodynamic 
continuum model, and is appropriate for the calculation of axisymmetr ic , 
supersonic, supe r-Al fvenic solar-wind flow past terrestrial planets. 

The procedures, which consist of finite-difference codes to determine the 
gasdynamic properties and a variety of special-purpose codes to determine 
the frozen magnetic field, streamlines, contours, plots, etc. of the flow, 
are organized into one computational program which has been extensively 
documented and is presented in a general user's manual included as part 
of this report. 

Theoretical results based upon these procedures are reported for a 
wide variety of solar-wind conditions and ionopause obstacle shapes. 

Plasma and magnetic-field comparisons in the ionosheath are also provided 
with actual spacecraft data obtained by the Pioneer-Venus Orbiter. These 
results have verified the appropriateness of the basic theoretical model, 
and have indicated the importance of accounting for the variable oncoming 
direction of the interplanetary solar wind. 



INTRODUCTION 


The magnetohydrodynamic models (refs, 1-9) of solar-wind interaction 
with planetary magneto/ionospheres and their associated calculations of the 
detailed flow and magnetic-field properties provide the basis of the 
theoretical understanding and interpretation of phenomena occurring in 
space around terrestrial planets from the viewpoint of a fluid rather 
than particle description of the flow. The general value and usefulness 
of results based on these models are now well established, and have 
advanced to the point where theoretical calculations can be used to 
predict important planetary and magnetic-field characteristics. 

Prior to the previous work reported in reference 9, the utility of cal- 
culations based on these models was severely restricted due both to the 
fact that the original solution techniques employed bordered on what was 
barely possible at the time, as well as that considerable hand computa- 
tion and intervention was required. Moreover, reported results were 
carried out for only a limited set of solar-wind conditions such as 
obstacle shape, oncoming Mach number, interplanetary magnetic field, 
etc., and were presented in archival publications only in the form of 
plots from which results for other conditions had to be determined by 
interpolation. The importance of the preliminary work of reference 9 was 
that advanced computational methods, based on current state-of-the-art 
algorithms, were introduced to this problem to provide the basic gas- 
dynamic solutions. The frozen-in magnetic-field was then solved for on 
the high-resolution flow-field grid, and the entire computational 
procedure was assembled into a user-oriented program providing the 

i 

detailed flow-field and magnetic-field properties in a convenient output 
format . 

In the current work reported here, those basic procedures have been 
extended and generalized in several important directions. These include 
the capability for treating very low oncoming interplanetary gasdynamic 
Mach numbers (M^ - 2.0), as well as quite general ionopause shapes. A 
new family of ionopause shapes has been developed which accounts for the 
effect of gravitational variation in scale height. Additionally, the 
capability for determining the plasma gasdynamic and magnetic-field proper- 
ties along an arbitrary spacecraft trajectory, simultaneously accounting 
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for an arbitrary oncoming direction of the solar wind, has been developed. 
Moreover, a large number of sample calculations have been performed for 
typical solar-wind conditions and, using the output contour-plot capa- 
bility, a catalog of these cases were established and are archived here 
for convenient quick-look use. Finally, a number of successful compari- 
sons were made by the present computational model with actual space- 
craft observations obtained from initial orbits of the Pioneer-Venus 
Orbiter. These comparisons have both provided a verification of the basic 
theoretical model as well as demonstrated its value as a convenient 
research tool capable of routinely providing details of the solar-wind/ 
planetary atmosphere interaction process not previously a tta inable--a t 
modest computational cost and in a format directly compatible with 
observational data . 
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LIST OF SYMBOLS 


1/2 

speed of sound , (yp/p) 

Alfven speed, (B 2 /4 tt p ) 1//2 

Jacobian matrix associated with IMP code, equal to 3E/3U 
magnetic field vector 

Jacobian matrix associated with IMP code, equal to 3F/3U 

specific heat at constant pressure 

specific heat at constant volume 

distance defined by eq. (59) 

internal energy, eq. (3) 

total energy, eq. (44) 

column matrix defined by eq. (42) 

column matrix associated with IMP code, equal to 
(5 t U + 5 X E + S r F)/J 

column matrix defined by eq. (42) 

column matrix associated with IMP code, equal to 
(n T u + n x E + h r f)/j 

acceleration due to gravity 

gravitational component, eq. C5) 

column matrix defined by eq. (42) 

enthalpy, eq. (47) 

total enthalpy, eq. (47) 

local scale height of atmosphere, RT/Mg 

local scale height with gravitational variation, H (R /R ) 
Jacobian matrix, eq. (43) 
constant defined by eq. (34) 

vector length of elemental magnetic flux tube 
local Mach number, |v|/a 

nondimensional mean molecular mass, equal to 1/2 for 
ionized atomic hydrogen 



LIST OF SYMBOLS (Continued) 


P 

q 

Q 

r 

R 

R 


R. 

1 


k 

AS 


t f T 

(u,v,w) 


u 

A 

IJ 

v 


(x,y, z) or 
{x w' y w' z w> 


(x s'y S ' z s ) 


(x' ,y' ,z' ) 


(X,Y, Z) 


a 


P 


a 


n 


local Alfven Mach number, |y|/A 

pressure 

shock velocity 

dummy parameter 

spherical radial distance 

cylindrical radial distance 

gas constant, 8.315x10 ergs/gm°K 

spherical radius of ionopause, eq. (39) 

spherical distance from center of planet to ionopause nose 
Poynting vector component 
incremental distance along streamline 
time 

velocity components associated with the (X,Y,Z) coordinate 
directions, respectively 

column matrix defined by eq. (42) 

column matrix associated with IMP code, equal to U/J 
velocity vector 

solar-wind oriented Cartesian coordinates with origin at 
planetary center, x positive upstream and z positive 
northward 

sun-planet oriented Cartesian coordinates with origin at 
planetary center, x positive toward sun, y g positive 
opposite to planetary orbital motion, and z g positive 
northward 

solar-wind oriented Cartesian coordinates defined by an 
azimuthal rotation given by eq. (70) 

solar-wind oriented Cartesian coordinates with origin at 
planetary center, X positive downstream and Z positive 
northward 

interplanetary magnetic-field angle between perpendicular 
and parallel components, eq. (62) 

interplanetary magnetic-field angle between normal and in- 
plane components , eq . (63) 
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LIST OF SYMBOLS (Continued) 
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Y 

<$ 



e 

n 

0 

A 

e 

p 

a 

T 

$ 



b 


spherical polar angle, measured with origin at planet 
center, from subsolar point away from undisturbed solar 
wind direction; varies from 0 in upstream direction to tt 
in downstream direction; eq. (39) 

ratio of plasma specific heats 

angle defined by eq. (59) 

Kronecker delta 

local angle of bow shock wave 

second-order difference operators in ( , ) direction 

smoothing coefficient in IMP code 

transformation variable, eqs. (40), (48) 

azimuthal rotation angle in solar-wind (X,Y,Z) system, 
eq. (69) ; also shock tangency angle, eq. (59) 

quantity defined by eq. (36) 

transformation variable, eqs. (40) , (48) 

density 

conductivity 

transformed time, eq. (40) 
gravitational potential , eq . ( 5 ) 

solar-wind polar angle 

angle between outward normal to magneto/ionosphere 
boundary and oncoming undisturbed solar wind, eq. (32) ; 
also, angle of magnetic component (B/B^)^, eq. (58) 

obstacle body 


i ionopause 

n normal direction 


P arbitrary point 

R reference quantity 

s planetary surface; also streamline 

S shock surface 
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LIST OF SYMBOLS (Concluded) 


t 

0 

1 
2 


C, A ,n) 

Superscripts 


stagnation conditions 
tangential direction 

reference quantity at subsolar point 

conditions upstream of a discontinuity 

conditions downstream of a discontinuity 

interplanetary undisturbed quantity 

parallel, perpendicular, and normal magnetic-field 
components as defined in eq. (56) 

unit vector 


* 


relative to shock 



ANALYSIS 


The Mathematical Model - Formulation 
of the Fluid Representation 

The fundamental assumption underlying the present work and that 
reported in all of the references cited above is that the average bulk 
properties of solar-wind flow around a planetary magneto/ionosphere can be 
adequately described by the continuum equations of magnetohydrodynamics 
for a single-component perfect gas having infinite electrical con- 
ductivity and zero viscosity and thermal conductivity. Theoretical 
justification of this point has not yet been established, and proof 
remains essentially qualitative at present. The primary justification 
for use of the continuum fluid model is the outstanding agreement of the 
qualitative results predicted on this basis with those actually measured 
in space. It appears that the continuum model is capable of accounting 
both for many of the details as well as the broad features of the 
observations. 


Governing equations . - The equations which express the conservation 
of the average bulk mass, momentum, energy, and magnetic field of the 
solar-wind plasma are given by the following expressions: 
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where 


g. 9±- 

y i 3x . 


s = - 

' 471 


v, B - B, v . B . 
k k 1 1 


and the equation of state of a perfect gas is given by 


pRT 

p = 

M 


(5) 


( 6 ) 


In these equations and those to follow, the symbols p, p, v, T, e = C^T, 
and h = C T refer to the density, pressure, velocity, temperature, 

ir 

internal energy and enthalpy, and C and C refer to the specific heats 

v P 

a t constant volume and pressure. We define the symbol R = (Cp-C v ) M = 
8.31x10 ergs/gm°K as the universal gas constant, and M as the mean 
molecular weight nond imensional i zed so that M = 16 for atomic oxygen. 

For fully ionized hydrogen, M is thus 1/2. The magnetic field B and the 
Poynting vector S for the flux of electromagnetic energy are expressed 
in terms of gaussian units. The gravitational potential $ and accelera- 
tion g are assumed to be due to massive fixed bodies so that their time 
derivatives are zero. These equations apply in the region exterior to 
the ionosphere boundary, as shown in the sketch below, and also in a 
degenerate sense in the ionosphere. 
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Conditions at discontinuities .- Because of the omission of 
dissipative terms in these equations, surfaces of discontinuity may 
develop in the solution, across which the fluid and magnetic properties 
change abruptly, but in such a way that mass, momentum, magnetic flux, 
and energy are conserved. These are approximations to comparatively thin 
surfaces across which similar but continuous changes in the fluid and 
magnetic properties occur in the corresponding theory of a dissipative 
gas, and correspond physically to the bow wave, ionosphere boundary, and 
possibly other thin regions of rapidly changing properties. Across these 
surfaces, continuous solutions of the dissipationless differential 
equations cease to exist. The flow is no longer governed solely by the 
differential equations (1) to (4), but must be supplemented by additional 
considerations. The conse'rvation of mass, momentum, magnetic flux, and 
energy lead to the following conditions which relate quantities on the 
two sides of any such discontinuity: 



(7) 


[py • v* + (p + B 2 /8 tt) n - B n B t /4irJ = 


( 8 ) 


Tb • v* - B • v. "I = 
l~t n n ~tj 


(9) 


* 

1 2 . , . B 2 


+ B 2 ] 
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*<r 

• 

1 

v 

n 

2 pv + pe + p + ^ 

+ q • 

P + 8? 

4tt 




J 

J 


( 10 ) 


Here, (n,t) denote unit vectors normal and tangential to the discontinuity 
surface, as sketched below. 



10 



where q n represents the local normal velocity of the discontinuity 
surface, and v* = v - q is the fluid normal velocity component relative 
to the normal velocity q n of the discontinuity surface. The square 
brackets are used to indicate the difference between the enclosed 
quantities on the two sides of the discontinuity, as in [Q] = Q 2 “ ®1 
where subscripts 1 and 2 refer to conditions on the upstream and down- 
stream sides, respectively, of the discontinuity. 

Five classes of discontinuities are described by Eqs. (7-10). Those 

with v* = 0 are called tangential discontinuities or contact disconti- 
n 

nuities according to whether or not B vanishes. Discontinuities across 

n 

which there is flow (v* ^ 0) are divided into three categories called 
rotational discontinuities, and fast and slow shock waves. Some proper- 
ties which distinguish the various discontinuities are indicated by the 
following relationships : 

Tangential : 

v* = B n = 0, [v t ] f 0, [B t ] / 0, [p] jt 0, [p + B 2 /8^] = 0 (11) 

Contact : 

v* = °' B n * °' [ Yl = = tPl = 0' Ipl ¥■ 0 (12) 


Rotational : 


V* = ±B n //4?p 
[p] = [ P ] = [v n ] 


E Yt 1 = ± I B t ] // 4 ttp 

[v 2 ] = [B 2 ] = [B n ] 


0 


( 13 ) 
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Fast and Slow Shock Waves: 


v n / 0, [p] > 0, [p] > 0, [B n ] = 0 


Klfast - KL. * K) 


rot. 


slow 


(14) 


n d 2 increase] 

?t and B [decrease] through 


[fast shocj^ waves 
slovr 


Of the five classes of discontinuities possible, two of these, the 
fast shock wave and the tangential discontinuity, are of concern in the 
present applications. The first relates conditions on the two sides of 
the bow shock wave, and any other shock waves present, while the latter 
has properties required to describe a boundary surface (ionopause) that 
separates the flowing solar wind and the planetary ionosphere. More 
detailed consideration of the tangential discontinuity condition leads to 
a determination of the ionopause shape, as described in the following 
sections. 


With regard to conditions at the bow wave, for solar-wind flows past 
Venus, as well as Mars and the Earth, that discontinuity can only be 
represented by a fast shock wave since the mass flux through each of the 
other possible choices is too small. With regard to conditions at the 
ionopause, of the various possibilities, only the tangential discontinuity 
has properties compatible with those required to describe a boundary sur- 
face that separates the externally flowing solar wind and the planetary 
atmosphere; that is, the condition v* = 0 prohibits flow across the 
boundary, while the condition B n = 0 must hold since by assumption no 
magnetic field exists interior to the ionopause and the solenoidal jump 
condition [ ] = 0 always holds. 


Frozen- field approximation .- Two important parameters characterize 
the solar-wind flow at any field poi.nt as described by eqs. (1-5). These 

are the Mach number M = v/a and the Alfv£n Mach number M = v/A. The 

A i^- 

former is the ratio of the flow velocity to the speed of sound a = (yp/p) 2 , 
while the latter is the ratio of the flow velocity to the speed A = 
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(B 2 /4ttp) % of a rotational or Alfven wave propagating along the direction 
of the magnetic field. 


For typical solar-wind conditions (refs. 5,6), both the oncoming Mach 
number and the Alfven Mach number are high (M ra = M A = 0(10)). In this 

instance, an important simplification of the magnetohydrodynamic equations 
occurs. This is so because the order of magnitude of the inertia term in 
differential equation (2) for the momentum is related to that of the 
magnetic terms by the square of the Alfven Mach number. When the latter is 
large, therefore, the magnetic terms in eqs. (2), (3), (8), and (10) decouple 
from the gasdynamic portions of those equations. Furthermore, for Earth, 
Venus, or Mars, the strong interactive nature of the flow permits the 
terms involving g and $ to be disregarded because of the relative small- 
ness of their effect on the fluid motion (ref. 5) . The equations for 
the fluid motion thereby reduce to those of gasdynamics, while the 
magnetic field B can be determined subsequently by solving the remaining 
equations using the values for v already determined. The magnetic field, 
determined in this fashion, is usually interpreted as being "frozen-in" 
or moving with the fluid (ref. 5). 


This then results in the following differential and conservation equa- 
tions; for the flow field 


8p , 9 
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[ pv n] = 0 


[pv • v* + P ] = 


= 0 


(18) 

(19) 
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0 


( 20 ) 




+ 


pe + p 


and for the magnetic field 

( 21 ) 
( 22 ) 

(23) 

(24) 

Equations (15) to (24) provide the governing equations which form the 
basis of the mathematical representation of the solar wind-magneto/ 
ionosphere interaction problem considered here. For all of the results 
as well as the computer codes presented herein, we are interested exclu- 
sively in the steady-state solution to these equations which are obtained 
by setting 3/3t = 0 and v* = v , i.e. q n = 0. We have presented the 
unsteady equations, however, since one of the computational methods used 
to determine the gasdynamic solution employs an unsteady procedure, inte- 
grating in time until the steady-state solution is asymptotically obtained, 


3 B 

TT + dr (v k B i - v i B k> 


= 0 


8B, 

9x 


- = 0 


M- 


= 0 


[B„ • Y t - e t • <] = 0 


Determination of the Ionosphere Boundary 

The determination of the ionosphere boundary initiates from the 
assumptions that the ionosphere, or at least the outer part of it that 
participates in the interaction with the solar wind, is idealized as a 
spherically-symmetric and hydrostatically-supported plasma having infinite 
electrical conductivity, effectively bound to the planet and incapable of 
mixing with the solar wind, as indicated in the sketch below: 
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Bow shock 



This interior plasma is separated from the flowing solar plasma by a 
tangential discontinuity across which the relations 


v n = B n = [p + B 2 /8 tt] = 0 
[v t ] ¥■ 0; [B t ] ^ 0; [p] ^ 0 


(25) 


given previously (eq. (11)) must hold. The basis for important simpli- 
fying approximations to these conditions, which can be assumed to apply 
at the Venusian ionosphere boundary and possibly for that at Mars as 

well, is that the gas pressure p is much larger than the magnetic 
2 

pressure B /8tt on both sides of the ionopause. Therefore, the discon- 

2 

tinuity pressure balance relation [p + B /8tt] = 0 of eq. (25) reduces to 
a simple equality between the ionosphere pressure and the static pressure 
of the flowing solar plasma adjacent to the ionopause, i.e. 


( P ) atm. = (p) flow (26) 

Determination of the ionospheric pressure in the vicinity of the iono- 
pause for the ionosphere models chosen in this study proceeds from the 
assumption of hydrostatic support, which implies a quiescent ionosphere 
where the bulk motions of the gas with respect to the planet are suffi- 
ciently small (v = 0) that equilibrium exists between the pressure 
gradient and gravity, viz. 


dp/dr = -pg 


(27) 
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where p and p are the gas pressure and density, r is the radial distance 
measured from the center of the planet, and g is the acceleration due to 
gravity. The variation of g is inversely proportional to r g , so that 
g = g s (r s /r)^ where the subscript s denotes values at the surface of the 
planet. Since the density p is related to the pressure according to the 
perfect gas law eg. (6) , eq. (27) can be integrated to yield 


p = p R exp 



(28) 


where p R is the. pressure at some reference radius R R and H is the local 
scale height of the atmosphere given by H = RT/Mg . 


If H is regarded as constant; that is, if variations of g and T 
with r are neglected, eq. (27) can be integrated directly to yield 


P = P R exp 



(29) 


In view of uncertainties associated with measurements of the atmospheric 
properties of Venus and Mars, the variation of p with r as given by eq. 

(29) was adopted in the initial solar wind/ionosphere applications (ref. 

6) and was also used in the previous study (ref. 9) involving the initial 
application of advanced computational methods to this problem. With pre- 
liminary ionospheric data now available from the Pioneer-Venus spacecraft 
(refs. 10 and 11) , some of these uncertainties for Venus have been removed. 
It has been found that the assumption of an isothermal (T = constant) 
atmosphere at typical ionopause heights is quite reasonable. Conse- 
quently, there is no need to neglect the variation of gravity in the 
scale height in eq. (28) . Including this effect leads to the following 
result for the pressure 


where 


P = P R exp 



H = H s • (V R s > 2 


(30) 


(31) 
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and R is the planetary radius and H_ = RT/Mg . Equations (29) and (30) 
provide the two models employed in this study for the ionosphere pressure 
variation which is required in eq. (26) for the pressure balance condi- 
tion at the ionopause. ' 

For the a priori determination of the static pressure of the flowing 
solar-wind plasma on the exterior boundary of the ionosphere - (P)fi ow in 
eq. (26) - we use, as in all previous applications, the Newtonian 
approximation 


P = 


st 


cos 


♦ 


(32) 


where <J> is the angle between the outward normal to the magnetosphere 
boundary and the flow direction of the oncoming undisturbed solar wind, 
and p st is the stagnation or ram pressure exerted on the nose of the iono- 
pause and is given by 


P 


st 




(33) 


In this relation, 
value is 


K is a constant usually taken as one, 

1 

<Y + 1) 


K = - 
Y 


(y + l)/2 


L Y - (Y - l)/2M ro J 


Y - 1 


but whose actual 


(34) 


For the high Mach number flows typical of solar-wind conditions, K 
approaches 0.844 for y = 2 and 0.881 for y = 5/3. Modification of the 
product Kp ra in eq. (33) to account for the presence of minor constituents 
such as ionized helium in the solar wind, as well as a discussion of the 
differences in that product between a fluid and collisionless representa- 
tive, is provided in reference 8. The important implication associated 
with the introduction of the Newtonian approximation is that the calcula- 
tion of the shape of the ionosphere boundary decouples from the calcula- 
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tion of the external flow. We then arrive at the following equation for 
the pressure balance at the ionopause locations R^ : 


R Pco V » COs2 * = Pr A ^ R i ) 


(35) 


where 
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A(R i ) 


I exp 
exp 


R i - r r 
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f \ 

r s 

H • R iJ 


J 

g = g s 

r J 


g,T = Const. 

2 

, T = Const. 


(36a) 

(36b) 


depending upon whether the gravitational variation is included in scale 

height or not. It is convenient to choose as the reference radius and 

location the stagnation point on the ionopause; that is, R R = R q where R q 

is the distance from the center of the planet to the nose of the iono- 

2 

pause. This implies that p = p = Kp^v^ and that at all points along 

R O 

the ionosphere boundary 


cos 2 = A(R^) 


(37) 


The final mathematical statement of the free-boundary problem for 
determining the shape of the ionosphere boundary then is summarized in 
the sketch below: 



In order to proceed to a final determination of the ionopause shape, it 
is necessary to relate the local angle to the local coordinates (R^,3) 
of the boundary. This is accomplished with the help of the following 
sketch 
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Y 



COS ijj = 


[dY. 

1 

dS 


(I^dgcos 3 + dR^sin 3) 
dR? + (R i d3) 2 


(38) 


This results in the following ordinary differential equation for the 
ordinates of the ionosphere boundary 


dRj. 

de 


- R i 


sin 23-2 




2 (A - sin 3) 


0 <. 3 <. TT 


(39) 


where A is- defined by eqs. (36a, b) and 3 is the angle measured from the 
subsolar point as indicated above. Results for various ionopause shapes 
obtained by integrating eq. (39) for different values of H/R Q using the 
constant scale-height model eq. (36a) were provided in ref. 9. Similar 
results using the isothermal model, eq. (36b) for different values of 
H/R q in the range 0.01 £ H/R Q — 0*5 are provided in figure 1, where for 
comparison purposes the constant scale-height shapes for corresponding 
H/R q values are also illustrated. We note that the range of interest for 
planetary applications to Venus and Mars appears to be 0.01 < H/R Q < 0.10. 
Tabulated ordinates of Y^/Rq vs. X/R Q are provided in Table 1 for 
H/R q = 0.01, 0.05, 0.10, 0.20, and 0.25, where Y^ = Rj_sin 3 is the cylin- 
drical radial coordinate of the ionopause profile. 
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Calculation of the Gasdynamic Flow Properties 


Determination of the gasdynamic flow properties is, both con- 
ceptually and computationally, the most difficult and time-consuming 
portion of the total calculation of the solar-wind/terrestrial-planet 
interaction; and represents the heart of the present modeling effort inso- 
far as the application of advanced computational procedures is concerned. 
The calculation consists of determining solutions to the differential 
equations and discontinuity conservation equations given by eqs. (15-20). 
Since in solar-wind/terrestrial-planet interactions, both the downstream 
tail region (far field) as well as the region in the vicinity of the 
obstacle nose (near field) are generally of interest, the computational 
methods selected must be capable of efficiently determining this entire 
flow field. In view of the need to carry the flow calculation to an 
arbitrary downstream distance, the most computationally-expedient pro- 
cedure is to subdivide the flow field into two regions, as indicated in 
the sketch below: 


Obstacle Marching method 



This sketch illustrates the essential features of the high-supersonic 
Mach number flow typical of solar-wind flows past terrestrial planets. 

Of particular note is the embedded subsonic pocket located at the nose of 
the ionopause. The presence of this subsonic pocket necessitates use of 
a computational method capable of treating mixed subsonic/supersonic 
flows. Downstream of this region, the flow becomes supersonic and 
remains so for the convex shapes typical of solar-wind/ionosphere bound- 
aries. In that region, a more computationally-economical procedure than 
that required near the nose can be employed. Such a subdivision of both 
flow field and solution procedures is common practice for calculating 
such flows and was employed in the previous solar-wind applications as 
well as in a related application to space shuttle reentry flows (ref. 

12). The precise surface on which the solutions are joined is relatively 
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arbitrary; in our procedure it was convenient to place it along a plane 
through the planet center and normal to the free-stream direction of the 
solar wind, i.e. the dawn-dusk terminator. As illustrated in fig. 2, 
this position is further downstream than used in the former work in which 
an inverse iteration method was used for the nose region and the method 
of characteristics was used for the remaining supersonic region. In 
light of recent advances, both of the techniques used in the former 
procedures, particularly the inverse method, are now considered obsolete 
and much inferior to more current methods. In the new code, those two 
methods have been superceded by: (1) a new axisymmetric implicit 

unsteady Euler-equa tion solver (IMP) specifically developed for the 
present application, which determines the steady-state solution in the 
nose region by an asymptotic time-marching procedure, and (2) a shock- 
capturing marching solution (SCT) which spatially advances the solution 
downstream as far as required by solving the steady Euler equations. 


Nose region solution - implicit unsteady Euler equation method .- The 
partial differential equations employed in the implicit (IMP) code are 
the unsteady gasdynamic Euler eqs. (15-20) for axisymmetric flow. These 
equations may be written in conservation-law form under the generalized 
independent variable transformation 


T = t, 5 = UT,x,R), n = n(T,x,R) 


(40) 


as follows 
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and the Jacobian 


J = ' ? R n X (43) 

In eqs. (40) through (43), T denotes time, X is the axial downstream 
coordinate, and R the cylindrical radial distance; u and v the velocity 
components in the X and R directions; and is the total energy per unit 

mass, which for a perfect gas is related to the other quantities by 

e fc = p/[p(y - 1)] + (u 2 + v 2 )/2 (44) 

The subscripts in eqs. (41) and (43) denote partial derivatives with 
respect to the indicated variable. 

The analysis commences by introducing a computational mesh in polar 
(r,3) coordinates such that one family of coordinates consists of rays 
from the planetary center spaced at equal increments of 6 measured from 
the obstacle nose, and the other of curved lines intersecting each ray so 
as to divide the portion of it between the ionopause and the shock wave 
into a fixed number of equal segments. The coordinate transformation eq. 
(40) is then used to map the portion of the X,R,T physical space bounded 
by (1) the bow wave, (2) the downstream outflow boundary at 3 = tt/2 , (3) 

the obstacle surface, and (4) the stagnation streamline at 3 = 0 into a 
rectangle in the £,ri/T computational space as illustrated in fig. 3. 
Generally, the transformation metrics at each time step are not known 
beforehand, and must be determined numerically as part of the solution. 
Integration step size is established by using the eigenvalues of the 
Jacobian matrices A and "B , where A = 8E/3U, B = 3F/3U, and U = U/J, 

E = (£ T U + ? X E + ? r F)/J, and F = (n T U + n x E + n R F)/J. 

Boundary conditions necessary for the specification of a 
properly-posed mathematical problem are that the flow (a) satisfy the 
axisymmetric Rankine-Hugoniot shock relations derivable from eq. (41) 
along (1), (b) be entirely supersonic along (2), (c) be parallel to 

boundaries (3) and (4) , and (d) be symmetric about boundary (4) . Initial 
flow-field conditions are determined by use of an approximating formula 
for the coordinates of the bow shock wave which is dependent on y, and 

the shape of the obstacle, and by prescribing a Newtonian pressure 
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distribution on the obstacle. Since the maximum entropy streamline wets 
the obstacle surface, that fact plus the known flow direction on the 
obstacle serve to determine the remainder of the flow properties on that 
surface. A linear variation for the flow properties between the bow 
shock and the obstacle is then prescribed. This provides the initial 
flow field which is then integrated in a time-asymptotic fashion until 
the steady-state solution is obtained. 

The basic numerical algorithm used in the IMP code was developed by 
Beam and Warming (ref. 13) and is second-order accurate, noniterative, and 
spatially factored. In particular, the "delta form" with Euler time dif- 
ferencing is employed. When applied to eq. (41), the algorithm assumes 
the form 


(I + At6^A n ) (I + Ax 6^B n ) (U n+1 - U n ) = -Ax(6 ? E n + &^F n + G) (45) 
where A and B are the Jacobian matrices, I is the identity matrix, <5- and 

✓s n + 1 * ^ 

5^ are second-order, central-difference operators, U = U (nAT) and 
At is the integration step size. 


Equation (45) is solved at the interior points only. It requires two 
4x4 block tridiagonal inversions at each time step of the integration. 

The solution proceeds as follows: 

a AnJ-1 ^ r\ 

1. Define AU = U - U n 


2. Form the right-hand side of eq. (45) and store results in the 
U n x array. 

3. Apply smoothing U n+1 = 0 n+1 - (e/8)S/J. 

n ^ 

4. Define U = (I + AtS^B ) AU and solve the matrix equation 

(I + At6^A n )U = u n+1 for U storing the result in the U n+1 array. 

n /v An + l A 

5. Solve the matrix equation (I + At< 5^B ) AU = U for AU. 

Anxi ~ n+l a. /v n 

6. Obtain the values of U n from the relation U = AU + U . 
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7. Transfer contents of G n+1 to G n and repeat all steps until 
satisfactory convergence is attained. 


In step 3 a fourth-order smoothing term S is used to eliminate non- 
linear instabilities that may arise since the use of central differences 
in the spatial directions results in a neutrally stable algorithm. This 
smoothing term is given by 
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(46) 


and e, the smoothing coefficient, chosen from the range 0 £ e £ 0.4 
depending upon the size of the time step. The j and k indices correspond 
to the £ and n directions, respectively. At the points adjacent to the 
boundaries a special form of the smoothing term is used. 


At the boundaries, modification of the differencing algorithm to 
account for the particular conditions described above is accomplished as 
follows. The obstacle-surface f low-tangency condition is incorporated 
through the use of Kentzer's scheme (ref. 14), while at the symmetry 
plane, the variables are reflected according to whether they are odd or 
even. At the outflow boundary where the flow is entirely supersonic, the 
dependent variables are determined by extrapolation from the adjacent 
interior points. For the upstream boundary formed by the bow shock wave, 
the sharp discontinuity approach of reference 15 is used. The interior 
flow field bounded by these various boundaries is treated in shock- 
capturing fashion and, therefore, allows for the correct formation of 
secondary internal shocks. 


In the initial development of the nose-region solution procedure 
(ref. 9), it was found that for certain ionopause obstacle shapes which 
have a significant amount of lateral flaring at the dawn-dusk terminator, 
for example, constant scale-height shapes for H/R q >. 0.5, and/or cases 
involving low free-stream Mach numbers <. 3, the axial component of 
velocity at some points on the terminator plane 0 = tt/2 may become 
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subsonic. Although this has no effect whatsoever on the nose-region 
solver, for these cases the downstream solution cannot be obtained since 
the marching-region solver which determines the solution downstream of 
this starting plane, and which is described in detail in the following 
section, requires supersonic axial velocities in order to proceed. Under 
the work reported here, this limitation has been removed by developing 
the capability for adding an additional portion of the flow field, 
located downstream of the terminator, to the blunt-body solution as 
illustrated in figure 4. This effectively generalizes the capability of 
the present procedures to treat a wide variety of ionopause shapes - 
including all of the shapes of interest described by the constant 
scale-height and scale-height with gravitational variation atmospheric 
models found from eqs. (36a, b) - as well as to treat relatively low 
free-stream Mach numbers, M ot - 2.0. Details of this capability are 
provided in the Computer Program Users Manual, Section A. 2.1.1 of this 
report. 


Downstream region solution - shock capturing marching method .- Since 
the shock-capturing technique employed has been described previously in 
references 16-18, only an outline of the salient features is provided 
here. The analysis is based on the conservation-law form of the 
gasdynamic Euler equations for steady axisymmetric flow, which can be 
readily obtained from eqs. (40) through (44) by setting the x derivatives 
to zero. The fourth of this set of equations representing conservation 
of energy pe^_ can be integrated for steady flow to yield the following 
relation for the total enthalpy 

h fc = h + (u 2 + v 2 )/2 = constant (47) 


where h = e + p/p = C^T is the enthalpy per unit mass, 


The computational mesh is defined by lines of constant X and 

(R-R, )/(R -R, ) , where R and R, are functions of X that describe the 
b s b s b 

radial cylindrical coordinates of the ionopause and bow shock wave at the 
same X as the field point (X,R) . The three remaining partial differen- 
tial equations for conservation of mass and of axial and radial momentum 
are then transformed to a rectangular computa t ional space by the 
transformation 
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( 48 ) 


to obtain 



3E/3£ + 8F/3n + G = 0 


(49) 


i = E, F = [p - [£ E b ♦ n £ (», - V]}/ (R S - V 

5 - G + R-i-R- £ <R S - V 150) 

s b 

The finite-difference counterpart of eq. (49) is integrated with 
respect to the hyperbolic coordinate 5 to yield values of the conservative 
varible E. Subsequent to each integration step, the physical flow 
variables p, p, u, and v must be decoded from the components e^ of E. 

This necessitates the solution of four simultaneous, nonlinear equations 
consisting of eq. (47) together with the three elements e^. This can be 
done readily by using the relations v = P = e 2 ” e l U/ anc ^ 

p = e 1 /u together with the expression h = y/(y-l) (p/p) for a perfect gas 
to determine the following quadratic equation for u 





2 



0 


(51) 


Two roots exist; one corresponds to subsonic flow and is discarded since 
u is always supersonic in the present application, while the other corre- 
sponds to supersonic flow and gives the desired solution. 


Since only the bow shock wave is treated as a sharp discontinuity 
and any others that may be present are "captured" by the difference 
algorithm, selection of the appropriate finite difference scheme to 
advance the calculation in the 5 direction is of prime importance. 
Following the analysis of refs. 16-18, the numerical integration of eq. 
(49) is accomplished using the finite-difference predictor-corrector 
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scheme of MacCormack (ref. 19)/ the most efficient second-order algorithm 
for shock-capturing calculations. General descriptions of the method can 
be found in the references cited. 

Calculation of the streamlines .- The streamlines are determined by 
integrating fluid particle trajectories through the known velocity field 
since this procedure was found to be more accurate than the alternative 
mass-flow calculation. The calculation of a particular streamline is 
initiated at the point where the streamline crosses the bow shock, as 
illustrated in figure 5. At that point, exact values of the streamline 
slope dR^/dX are known in terms of the local shock angle and 
free-stream quantities according to the relation 

dR (2cot 6 ) (M 2 sin 2 6 C - 1) 

-a# = ^ (52) 

aA 2 + M z (y + 1 - 2sin 6 C ) 

00 b 

which is contained implicitly in both the blunt-body (IMP) and marching 
(SCT) code solutions. At other points in the flow field, the local stream- 
line slope is given by the ratio of radial to downstream velocity, i.e., 

dR s /dX = v/u (53) 

and the streamline determination is made by stepwise integration in X 
using a modified third-order Euler predictor-corrector method. Bivariate 
linear interpolation from the flow-field grid points is employed to 
obtained the velocity components (u,v) required at the stepwise points 
along the streamline trajectory. Separate streamline calculations are 
made for the nose region (IMP results) and downstream region (SCT results) 
because of the different coordinate systems employed in those two regions. 

Calculation of the Magnetic Field 

With the flow properties known from the gasdynamic calculations, deter- 
mination of the steady magnetic field B proceeds by integrating the 
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remaining magnetohydrodynamic equations not employed in the gasdynamic 
analysis, that is eqs. (21-24) with 9/9t = 0: 



These equations are commonly interpreted as indicating the field lines 
move with the fluid. The analysis associated with eqs. (54) leads to a 
straightforward calculation in which the vector distance from each point 
on an arbitrarily-selected field line to its corresponding point on an 
adjacent field line in the downstream direction is determined by 
numerically integrating / v dt over a fixed time interval At. Once the 
coordinates of the field lines are determined, the magnetic field at any 
point may be calculated from the relation 


B M 

o 



(55) 


where A l is the vector length of a small element of a flux tube. Figure 6 
clarifies these quantities for the plane of magnetic symmetry defined by 
the plane containing the axis of symmetry of the obstacle and the magnetic- 
field lines upstream of the bow wave for the special case when the latter 
is perpendicular to the flow. In that figure the open symbol O denotes 
locations of points on the streamlines corresponding to the fixed-time 
interval At = AS /v . 

oo' oo 

Such a procedure is valid generally, but its use in the present calcu- 
lations is confined to only the component of the magnetic field (B) ± just 
described. The remainder of the magnetic-field calculation makes use of a 
decomposition due to Alksne and Webster (ref. 20) in which the axisymmet- 
ric properties of the gasdynamic solution and the linearity of the 
magnetic-field eqs. (54) are employed to derive the following relation- 
ship for the magnetic field B p at any point P: 



( 56 ) 
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As illustrated in figure 7, subscripts ", , and n refer to contributions 

associated with the components of parallel to v^; the component 

B m perpendicular to v m in the plane that contains the point P, the center 
of the planet, and the vector v^,; and the component B^ normal to the 
latter plane, and e n is a unit vector in the latter direction. The unit 
ratios (Bp/B^) n and (Bp/B,,,)^ can be calculated directly from the gas- 
dynamic solution by the expressions 


3p 

PpVp 
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1 1 
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ooJ 

pJyJ 

^ 00 


R P P P 

R P P co 
00 


(57) 


where R p is the radial cylindrical coordinate of the streamline through P, 
as indicated in figure 7. 


In carrying out the determination of (Bp/B^^ using eq. (55), values 
for Af/|A£J are determined initially at the points where the streamlines 
and perpendicular-component field lines intersect. A generalized quadri- 
lateral interpolation scheme followed by a fifth-order smoothing is then 
employed to determine the corresponding values at the computational grid 
points where values for P/P^ are available for calculation of (Bp/B^)^. 

At the bow shock, an exact formula is used 


( | A£ |/ | | ) 2 = 1 + cot 2 0 (1+D 2 ) - 2D x esc 0 x cot 0 x cos (0-6) 

= 0 + sin ^ j^[D x cot 0 x sin (6-6) ] / ( | Lt \ / \ | )^j 


where 


D 2 = 1 - 4 (M 2 sin 2 0 - 1) (yM 2 sin 2 0 + l)/[(y + l) 2 M^sin 2 0] 
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cot 6 = tan 0 x { ( Y + 1)M^/ [2 (M^sin 2 0-1)] 


-0 


0 = tan 


-1 


dR s 

dX 


(58) 


(59) 


Finally, the resultant magnetic field can then be expressed in components 
relative to any orthogonal (X,Y,Z) coordinate system. For convenience of 
illustration, we have chosen the point P to lie in the (X,Y) plane. 
Relative to this reference frame, the magnetic components are 
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B X /B « = [(|B|/ B J„ cos <p cos ctp + ( | B | /Bg,) A COS 4 sin a p )] cos a n 

B Y /B « = [(IBI/SJ. sin * cos a p + UbI/BJ^ sin ip sin o p )] cos a n 

B_/B = (B/B ) sin a (60) 

Z <» » n n 


where 4> is the local flow angle given by 

4 = tan -1 [jj (61) 

and the interplanetary magnetic field angles a ^ and a n indicated in 
figure 7 are defined by 
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a n = tan 


-1 
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"V (Boo.. ) 2 + (B.. ) 2 


= tan 


-1 


V(B v ) 2 + (B v ) 


(63) 


The generalizations of these results when the point P is at some arbitrary 
(Y,Z) location, i.e. not in the (X,Y) plane, are provided below in the 
spacecraft trajectory section. 


Calculation of the Contour Lines 

Contours are calculated for nondimensional ized velocity lyl/v^, density 
p/p co , magnetic field components (IbI/B^, (IbI/B^)^, and (B/B 00 ) n by 
application of a modified version of a contour procedure developed at 
NASA/Ames Research Center. After specifying a value for the contour line, 
the boundary is searched for intervals which bracket the selected value. 
After locating one such point by interpolation, the remainder of the 
contour is determined by 'walking 1 around the contour, searching at each 
step for the interval and then interpolating to find the point through 
which the contour line next passes. This is repeated until a boundary 
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point is reached. Then closed contours are found in a similar manner. 
Linear interpolation is used throughout the process. Since the temperature 
is a function of IyI/v. only for a specified M ro and y, 
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velocity contours may also be considered as temperature contours with 
only a relabeling required. The coordinates of the contour lines are out- 
put either or both as listings and pen plots. 


Solar-Ecliptic/Solar-Wind Coordinate Transformations 

In order to facilitate comparison of results from the current theore- 
tical model with actual observational data obtained by a spacecraft, it is 
necessary to consider the appropriate transformations between the space- 
craft and solar-wind coordinate systems. Part of the data required as 
input to the theoretical model consists of oncoming interplanetary values 
of solar-wind temperature, density, and velocity and magnetic-field 
vector components. These are naturally obtained in the spacecraft 
coordinate system, and are usually reported in a sun-planet or solar- 
ecliptic reference frame. The key coordinate system for the theoretical 
model is one which aligns the axial direction with the oncoming solar 
wind, since the gasdynamic calculation is assumed to be axisymmetric 
about this direction. Thus, the interplanetary input data must be trans- 
formed to the solar-wind system to initiate the theoretical determina- 
tion. Once the gasdynamic and magnetic-field calculations in the solar- 
wind system are complete, those results must then be transformed back to 
the sun-planet system to allow direct comparison with spacecraft data 
obtained at arbitrary locations in the solar-wind/ionosphere interaction 
region. Consequently, direct and inverse transformations for both spatial 
coordinates as well as vector quantities between these reference frames 
are required. 


For the measurements of the oncoming interplanetary solar-wind ve- 
locity we have assumed that the velocity is obtained with reference to a 
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sun-planet (x -y_,z_) system with origin at planetary center and in which 
s s s 

the x-axis points to the sun, the y -axis is opposite to the planetary 
s s 

orbital motion, and the z -axis points northward. The direction of the 

s 

oncoming solar wind is such that the total abberation or azimuthal angle, 
including planetary orbital motion, of the solar-wind velocity vector in 
the plane of the ecliptic is ft and the out-of-ecliptic plane or polar 
angle is <t>p. The positive sense of the azimuthal angle is for east-to- 
west flow and for the polar angle for north-to-south flow, as indicated 
in figure 8. In that figure we have also indicated the solar-wind 
(x,y,z) coordinate system so defined by (ft,<f> ) • For the gas-dynamic 

r 

calculation, the (x,y,z) system is somewhat inconvenient since the direc- 
tion of solar-wind flow is in the negative x-direction. Hence, the 
internal gasdynamic and magnetic-field calculations are performed in an 
{X , Y , Z ) system as shown in figure 9. 


The coordinate and vector transformations from 
(Xg,y s ,z s ) system to the (X,Y,Z) solar-wind system 


the ecliptic sun-planet 
are given by 
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(65) 


where (Q x , Qy» Q z ) represents the Cartesian components of any vector 

referred to the solar-wind (X,Y,Z) coordinate system, and (Q ,Q ,Q ) 

x s "s z s 

represents the corresponding vector in the sun-planet ecliptic 
(x s ,y s ,Zs) system. Thus, for a transformation of coordinates 


(Q x , Q y , Q z ) = (X, Y, Z) 

<Q X , Q , Q z ) = (x , y , z ) 
s Jr s s 


( 66 ) 


while for a vector transformation of, say, the magnetic field 


(Q » Q , Q ) = (B , B , B ) 
x' y' w z v x' y z 

(Q , Q , Q ) = (B , B , B ) 
x y ' z ' x y z ' 

s-'s s s J s s 


(67) 
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The inverse transformation from the solar-wind to the sun-ecliptic system 
is given by 



-cos R cos <|> 
sin R cos <)> 
sin (j> 
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Properties Along a Spacecraft Trajectory 

One of the primary aims of the present effort has been the development 
of the capability to determine plasma and magnetic-field properties, as 
predicted by the present theoretical model, at locations specified along 
an arbitrary spacecraft trajectory, and in such a form as to enable com- 
parisons to be made directly with actual spacecraft data. To this end, 
the following procedure has been developed and implemented in the 
associated computer code. First, from the known oncoming interplanetary 
conditions provided in a sun-planet reference frame, the azimuthal and 
polar solar-wind angles ( Q , (f>p) are employed to establish both the loca- 
tion of the trajectory point in the solar-wind (X,Y,Z) frame as well as 
the interplanetary magnetic-field components (B x ,By ,B Z ) using the 
transformation eq. (65) . Next, the axisymmetric gasdynamic and unit 
magnetic-field calculations are carried out. Because the gasdynamic flow 
is axisymmetric in the (X,Y,Z) system, the internal coordinate system in 
which the trajectory calculations are actually performed may be rotated 
about the X axis into the most convenient orientation. If we consider a 
point P located at (Xp,Yp,Zp), then the rotation most appropriate for the 
present application is indicated in the sketch below 
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where the angle 6 is given by 
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This rotation defines a new coordinate system (x',y',z') where 
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Thus, the (x',y') plane which contains the X axis and the arbitrary point 
P corresponds directly to the plane (X,R) = (X ,Vy^ + zjr) in which the 
axisymmetric gasdynamic flow properties are calculated. In particular, 
the velocity magnitude v, density p, and flow angle <f) at the point P are 
found by bilinear interpolation through the (X,R) flow-field grid. The 
vector velocity in the (X,Y,Z) system is then given by the transformation 
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and then in the sun-ecliptic system by the transformation given in eq. (68) 
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Calculation of the magnetic field at an arbitrary point is somewhat 
more complicated since these components are dependent upon the orientation 
of the incident interplanetary magnetic field. With the known (B Y ,B V , 

B z ) components, the corresponding components (B' ,B' ,B' ) in the rotated 

^00 ^00 Y 00 ^ oo 

(x'ry'jZ 1 ) system are given by 
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In this reference frame, the perpendicular, parallel, and normal inter- 
planetary components are identified as 
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Then, the magnetic field angles and ct^ in the rotated system are given 
by 

(76) 
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The magnetic angle associated with the incident perpendicular component 

and the unit magnetic-field ratios (|b|/B ) , (|b|/B ) , (B/B ) in the 

~ " - 1 n 

rotated system are next determined by bilinear interpolation through the 
flow-field grid. Then, the magnetic-field components (B',B',B') in the 

x y z 

rotated system are calculated from 
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The magnetic-field components in the solar-wind ( X,Y,Z ) system are then 
determined from the rotational transformation. 
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and finally in the sun-planet system from 
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RESULTS 


Using the computational procedures developed under the current 
modeling effort, a large variety and number of different solar- 
wind/planetary-ionosphere interraction results were systematically 
obtained. These results were directed toward the following specific 
objectives: (1) verification of the correctness of the procedures, (2) 

demonstration of their flexibility and generality for a variety of cases 
covering ranges typical of solar-wind conditions, (3) establishment of a 
catalog of flow and magnetic-field results for a large number of solar- 
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wind flows, and (4) comparisons of theoretical predictions with data 
obtained from spacecraft measurements. The results obtained associated 
with these objectives are discussed below. 

Verification of the correctness of the procedures developed under 
the current effort primarily involved testing the computational exten- 
sions developed regarding both the gasdynamic and magnetic-field calcula- 
tion methods reported in ref. 9. For the gasdynamic solver, this consists 
of demonstrating the extended blunt-body capability. As discussed 
previously in the section describing the nose-region solution and also in 
section A. 2. 1.1 of the computer manual, that extension involves the addi- 
tion to the nose-region flow field of a region downstream of the 
dawn-dusk terminator - which is the usual plane terminating the nose- 
region solution. This added capability effectively removes any 
restriction with regard to obstacle shape and interplanetary gasdynamic 
Mach number of the previous procedures (ref. 9); and permits the 
calculation of ionopause shapes which have significant flaring in the 
radial direction at the dawn-dusk terminator, as well as flows at very 
low (M to - 2.0) free-stream Mach numbers. In figure 10, we present 
results for the bow shock locations for M m = 8.0, y = 5/3 flow past 
constant scale-height ionopause shapes (see eq. (36a) with H/R q = 0.5 and 
1.0. The downstream solutions for neither of these shapes could be 
determined with the previous procedures (ref. 9) , whereas with the 
present method they present no problem. The downstream locations to 
which the nose-region solutions were extended were X/R q = (0.54, 0.67), 
respectively, for the H/R Q = (0.5, 1.0) ionopause shapes - indicating 
that the addition of an extensive downstream region to the nose solution 
for such flows is unnecessary. This is important, as the nose-region 
solver requires significantly more computational time for a given 
flow-field region than the marching solver. Hence, minimization of the 
nose-region flow field is essential in minimizing the total com- 
putational time. 


In figure 11, we display additional results using the extended nose- 
region grid capability to demonstrate the ability of the current method 
for calculating very low interplanetary gasdynamic Mach number flows. 

Bow shock locations are shown for = 2.0 and 3.0, y - 5/3 flows past an 
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ionopause obstacle shape with gravitational variation included in 
scale-height having H/R Q = 0.25 (see eq. (36b)). This particular 
obstacle is a relatively blunt shape, as can be observed from the 
ionopause profiles presented previously in figure 1, and, computa- 
tionally, presents a more difficult flow to determine than flows for 
shapes having less flaring. For applications to terrestrial planets, 
such as Mars and Venus, typical ionopause shapes occurring in nature 
appear to lie in the range 0.01 < H/R < 0.10. Consequently, demon- 
stration of the ability of the current procedures to treat successfully 
such flows as shown in figures 10 and 11 - which lie at the limits of 
interest as far as applications to nonmagnetic terrestrial planets, indi- 
cates that these procedures will not be restricted insofar as ionopause 
geometry and interplanetary solar-wind conditions are concerned. 

Corresponding verification of the extensions to the procedures for 
the magnetic-field calculation has involved demonstration of the 
correctness of the magnetic-field prediction at any arbitrary point in 
the solar-wind flow field. This was accomplished by consideration of a 
variety of special test cases in which the location in the flow field and 
the incident interplanetary magnetic-field orientation were system- 
atically changed so as to produce both symmetric and antisymmetric 
changes in the resultant ionosheath magnetic field, as well as to reverse 
the roles of the perpendicular and normal components. All of these 
various permutations of the magnetic-field calculation procedure were 
successfully verified. 

One of the primary objectives of the present work was to demonstrate 
the flexibility and generality of the present procedures by exercising 
them over a wide range of ionopause geometries and solar wind oncoming 
conditions so as to cover, insofar as possible, the entire range of 
practical interest of these parameters. These calculations were to be 
summarized in a convenient format and then archived so as to provide 
at-a-glance information regarding the variation of the flow-field and 
unit magnetic-field quantities. The output format selected was the 
automatic pen-plot output option of the program involving plots of the 
flow-field streamlines, and contours of the velocity magnitude lyl/v^, 
temperature T/T ro , density p/p , and the field-line locations and contours 
of the unit magnetic-field ratios (|b|/B ) and (|b|/B ) . 
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The test cases selected for this catalog involved a ratio of specific 
heats Y = 5/3 and the following matrix of free-stream Mach numbers and 
ionopause shapes: 


M m = {2.0, 3.0, 5.0, 8.0, 12.0, 25.0} 

H/R o = {0 - 01 ' 0.10, 0.25} 

H/R q = (0.10, 0.20, 0.25} 

Thus, a total of 36 separate cases were calculated. The plot output for 
these cases is provided in Appendix B, which also presents a convenient 
page index to the individual results. These archived results provide an 
very convenient means of determining the overall dependence of flow- 
field and magnetic-field quantities with M ot and obstacle shape, in par- 
ticular the variation of bow shock location and flow-field contour changes. 
We note that the range of free-stream Mach numbers selected easily spans 
the entire range of solar-wind conditions usually encountered, while the 
different obstacle shapes provide a wide variation as well, as can be 
observed from figure 1. 

The final and ultimate check of the current procedures lies in the 
comparison of the results predicted by the present model with data 
actually measured by a spacecraft. To that end, we have made a number 
of preliminary comparisons with data obtained from orbits 3 and 6 of the 
Pioneer-Venus Orbiter spacecraft. 

The overall features of the spacecraft trajectory crossings of the 
solar-wind/Venus-ionosphere interaction region are provided in the sketch 
given in figure 12. In that figure, which is referred to the sun-Venus 
solar-ecliptic coordinate system, we note in particular the highly 
elliptic spacecraft orbit (periapsis -200 Km, apoapsis -66,000 Km) and 
the crossings of the bow shock and ionopause surfaces. The oncoming 
solar-wind direction, with arbitrary azimuthal (aberration) and polar 
angles (^,<f>p) is as indicated, with the ionopause and bow shock surfaces 
symmetric about that direction. The oncoming arbitrary interplanetary 
magnetic field B is also as indicated. 

The procedural outline employed for the theoretical comparisons is as 
follows : 


39 



I. Orbital data selection 


Select data from an orbit when solar-wind conditions are relatively 
steady. 

II. Theoretical calculations 
Input: 

Ionospheric P and T versus altitude from orbiter retarding 
potential analyzer (ORPA) 

Solar wind v m , p^, T w from orbiter plasma analyzer (OPA) 

Solar wind from orbiter magnetometer (OMAG) 

Trajectory coordinates 

Output: (Contours and/or time histories along orbital trajectory) 

Ionosheath p, T, v, B and their scalar components in solar 
ecliptic coordinates 

III. Comparisons with Spacecraft data 

Observational ionosheath data for p, |v|, T from OPA and for 

B from OMAG with two sets of theoretical predictions based on 
7 lagt ) 

interplanetary solar-wind properties (v^, T , p , BJ 
1 iirbcj (before) w . , (inbound ) 

measured { after j bow shock ( outbound J crossings. 

First, the selection of the particular orbit for which theoretical 
calculations and data comparisons will be carried out must be made. This 
choice is based on spacecraft observations of the oncoming interplanetary 
solar wind, and for the cases reported here, the selections were made 
when conditions appeared relatively steady. In particular, the 
interplanetary conditions regarding solar-wind velocity, density, 
temperature and magnetic field based on the orbiter solar-wind plasma 
analyzer (OPA) and fluxgate magnetometer (OMAG) measurements just prior 
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to inbound bow shock crossing and immediately after outbound bow shock 
crossing were analyzed by the Pi oneer-Venus investigators responsible for 
these instruments for a number of the initial orbits of the Pioneer-Venus 
spacecraft, and on this basis the selection of Orbits 3 and 6 were made. 

To initiate the theoretical calculations, information regarding both 
the ionospheric obstacle shape and the oncoming interplaneta ry conditions 
are required. The determination of the obstacle shape is based on measure- 
ments of atmospheric density and temperature as a function of altitude 
made by the orbiter retarding potential analyzer at (ORPA) locations 
interior to the ionopause boundary.** These measurements yield the varia- 
tion of atmospheric pressure with altitude in the vicinity of ionopause 
altitudes. From this information, the value of the scale-height parameter 
from the atmospheric pressure model given by either eq. (29) or (30) can 
be determined. For Venus, it appears that the ionosphere/solar-wind 
interaction is such that the ionopause wraps tightly about the planet 
(ref. 10). Our calculations based on ORPA data for Orbits 3 and 6 indicate 
scale heights of approximately 200 Km, which yield a corresponding range 

of values for H and H of 0.02 < H/R , H/R < 0.05. We note that for such 

- o o ~ 

small values of scale height, the two ionospheric pressure models eqs. 

(29) and (30) yield essentially the same obstacle shape, as can be seen 
from figure 1. For the comparisons reported here for both Orbits 3 and 6, 
we have selected a value of H/R Q = 0.03. With regard to oncoming 
interplanetary conditions, we require as input the solar-wind bulk 
velocity v^, density p to , temperature T , and magnetic field B^. The first 
three are provided by the orbiter plasma analyzer (OPA) , while the 
magnetic field is given by the orbiter fluxgate magnetometer (OMAG) . We 
note that the OPA provides either ion density and temperature or electron 
density and temperature, but not both simultaneously. For orbits 3 and 


Special thanks are due to J. H. Wolfe and J. P. Mihalov who provided 
information regarding the solar-win d plasma from OPA measurements 
(refs. 21,22) and to C. T. Russell, R. C. Elphic, and J. A. Slavin for 
magnetic-field information from OMAG measurements (refs. 23,24). 


Special thanks are due to W. C. Knudsen and K. Spenner for providing the 
ionospheric plasma information from ORPA measurements (refs. 10,11). 
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6, ion measurements were available and have been employed. Information 
regarding the oncoming direction of the solar wind, as given by the angles 
(ft,4>p), defines the requisite coordinate rotations required to align the 
gasdynamic calculation in the oncoming solar-wind direction; while 
information of solar-wind speed, density, and temperature serve to define 
the oncoming gasdynamic Mach number required to initiate the gasdynamic 
calculations. 

With this information, the detailed gasdynamic and unit magnetic-field 
calculations in the ionosheath region can be carried out. In order to 
provide an idea of the detail obtained by the present computational 
procedures in these calculations, we have displayed in figure 13 the 
flow-field grid for one of the gasdynamic flow solutions used in the data 
comparisons discussed below. The result shown is for M ro = 3.0, Y = 5/3 
flow past an ionopause obstacle shape with H/R Q = 0.03, and is shown 
carried to a downstream location of X/R Q = 3.0. The flow field 
properties [v/v^, P/P m , T/T^] and the unit frozen magnetic-field ratios 
[ (B/B^) n , (B/B ro )^, (B/B^) ] are determined at each intersection of the 

grid lines, including the bow shock, stagnation streamline, and 
ionopause boundaries. The final output of the calculaton consists of 
detailed flow-field and magnetic-field properties in the ionosheath 
region, both in terms of tabular output and plotted contours and time 
histories along the orbital trajectory of the velocity magnitude and 
components, density, temperature, and magnetic-field magnitude and 
components. Complete details are provided in section A. 4 of the Computer 
User's Manual. 

For the comparisons with spacecraft data, the most convenient portion 
of the output format are the time-history predictions along the space- 
craft orbit. The observational data used for comparisons with the 
theoretical predictions in the ionosheath region include plasma 
density, velocity, and temperature from OPA measurements and magnetic 
field from OMAG measurements. For the theoretical predictions, two sets 
of results are usually generated based on {first! interplanetary solar- 
wind properties (y ro , T„ ( P ro , BJ measured { Jf } bow shock joutboSndl 
crossing . 
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In figure 14, we have displayed some overall flow-field results for 
Orbit 6. Indicated in that figure are bow shock locations for the three 
combinations of free-stream Mach number M ro and plasma specific heat ratio 
Y, i.e. (M OT ,Y) = (13.3,5/3), (13.3,2), (3. 0,5/3) for flow about an 
ionopause with H/R Q = 0.03. Also indicated are two sets of points (-Q-# 
-□-) representing the spacecraft trajectory for orbit 6 as viewed in two 
solar-wind oriented coordinate systems. The trajectory indicated by the 
solid lines and circles (-Q-) is that based on the last measured 
direction (ft,<t>p) = (6. 5°, -1.4°) of the interplanetary solar wind just 
prior to crossing the bow shock on the inbound leg, while the dashed line 
and squares ( — □ — ) denotes the trajectory based on the first measured 
direction (fl,4> ) = (4. 9°, 7. 6°) of the solar wind immediately after 
crossing the bow shock on the outboard leg. We note that the spatial 
location of the spacecraft trajectory in solar-wind coordinates depends 
only on the direction ) of the oncoming solar wind, but not on its 

magnitude. With regard to the results indicated in figure 14 for the 
spacecraft trajectory, we observe the extremely large dependence of 
spatial position of a trajectory point, as viewed in solar-wind 
coordinates, on solar-wind direction. For the particular inbound and 
outbound solar-wind angles indicated, the shift in X-coordinate of a 
trajectory point can be as high as a quarter of the Venusian planetary 
radius, which obviously results in substantial differences in predicted 
flow and magnetic-field properties. In previous work, the influence of 
the angular shift in the solar wind was generally considered to be small 
and negligible. The current results, however, indicate that this purely 
geometrical effect can be surprisingly large, even for directional shifts 
of less than 5°, and must be accounted for in any realistic theoretical 
comparison with data. See reference 7 for another example of the 
importance of this effect. 

Finally, with regard to the three sets of bow shock results 
displayed in figure 14, these calculations represent an attempt to 
resolve the uncertainty in the oncoming free-stream Mach number and ratio 
of specific heats of the plasma. Because only solar-wind ion tempera- 
tures from the OPA were available for Orbit 6, the initial calculation of 
the free-stream Mach number was based on the assumption that T 0 = , 

which leads to M m = 13.3. A ratio of specific heats y = 5/3 was assumed, 
and these interplanetary values result in the bow shock indicated by the 
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dot-dash line. That shock location is in poor agreement with the 
observational shock crossings, indicated as occurring between the pairs 
of solid circles and squares. A separate uncertainty arises from the 
possibility that the magnetic field may act to align the plasma particle 
motion in its direction, thus effectively reducing the number of degrees 
of translational freedom from 3 to 2 and thereby increasing the ratio of 
specific heats from 5/3 to 2. To investigate this possibility, we have 
repeated the = 13.3 calculation using y = 2. That result is indicated 
by the dashed line, and is in better but still not completely satisfactory 
agreement with the observed shock locations. Finally, if it is assumed 
that the oncoming interplanetary electron temperature is not equal to the 
ion temperature, but is substantially higher, we are lead to low Mach 
numbers of the order of - 3-5. We have displayed bow shock results of 
a M ro = 3.0, y = 5/3 calculation in figure 14 as the solid line, and 
observe that based on this Mach number and the inbound solar-wind 
direction, the observational shock crossings display very good agreement 
with the theoretical results. 

Figure 15 displays the time-history comparisons of the 
theoretically-predicted bulk plasma density, speed and temperature in 
the ionosheath region with OPA measurements of these quantities. These 
theoretical results were based on a gasdynamic flow solution with M^ = 
13.3, y = 2.0. In these results, the solid lines with circles correspond 
to results based on inbound interplanetary conditions, while the dashed 
lines with squares correspond to outbound conditions. We note that while 
the few data points available are in general agreement with the theore- 
tical calculations, the lack of more detailed plasma measurements in the 
ionosheath prevents a definitive conclusion. The OPA instrument requires 
approximately 9 minutes to acquire sufficient data to enable predictions 
of the bulk plasma quantities. While this time lag presents no problem 
when the spacecraft is in the interplanetary solar wind, the large 
resolution time effectively averages the plasma quantities in the 
ionosheath over such a large spatial range that only overall comparisons 
of the bulk plasma properties are possible. 

The situation is quite different for the magnetic field, as the OMAG 
instrument provides essentially instantaneous magnetic-field measure- 
ments. Comparisons of the frozen magnetic-field predictions with data 
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are displayed in figures 16 (a, b). These comparisons employ the gas- 
dynamic solution = 13.3, y = 2 for which plasma properties were given 
in figure 15. In figure 16a, we display two sets of theoretical 
calculations for the magnitude of the magnetic field, based on the 
inbound and outbound interplanetary magnetic field conditions as 
indicated on the figure. In these comparisons, we observe very good 
agreement with both sets of predictions. In particular, on the inbound 
leg, the theoretical predictions based on the inbound interplanetary 
conditions are in very good agreement with the data, while the outbound- 
condition predictions are clearly not as favorable. On the other hand, 
as we proceed in time along the outbound leg, the opposite is true. 

Here, the outbound-condition predictions are in very good agreement with 
the data, while the inbound-condition predictions are notably inferior, 
particularly with regard to shock crossing. Corresponding results for 
the magnetic-field components are provided in figure 16b, and display a 
similar behavior. The agreement of the theoretical results with data for 
the individual components is remarkable, confirming the accuracy of the 
frozen-field model, as well as the shift of the ionosheath magnetic field 
from a solution related to inbound interplanetary conditions to one 
related to outbound conditions. 

For Orbit 3, similar comparisons as those shown in figures 14-16 for 
Orbit 6 are given in figures 17 to 19. In figure 17, we have provided 
the bow shock locations for five different combinations of and Y as 
indicated. The Mach numbers M^ = 7.38, 5,96 correspond, respectively, to 
the inbound and outbound interplanetary conditions for Iv^l, P^, T^ as 
measured by the OPA, while the two values of y = 5/3,2 used in the 
calculations represent our uncertainty of the ratio of plasma specific 
heats. We have also indicated for reference the bow shock location for M w 
= 3.0, y = 5/3 as given previously in figure 14 for Orbit 6. Note that 
the observational shock crossings are again closest to the M OT = 3.0, Y = 
5/3 shock. Also provided in figure 17 are the orbital trajectories as 
viewed in solar-wind coordinates for the inbound (^,4> p ) = (3. 3°, 0.15°) 
and outbound ) = (3. 7°, 4. 9°) solar-wind directions. 

The comparisons for the bulk plasma properties for Orbit 3 are pro- 
vided in figure 18. Again we note an overall agreement for bulk plasma 
speed and density, but note an observable discrepancy in the temperature. 
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This is thought to be indicative of the manner in which the bulk 
properties from the theoretical model are being interpreted in relation 
to the observational measurements; i.e. the theoretical values corre- 
spond to those for a single-component plasma, while the measurements are 
in terms of a multi-component plasma. Whether the theoretical plasma 
properties require rescaling or reformulation, or whether their present 
formulation is appropriate for comparison with the multi-component data, 
appears to be a necessary and important subject for future study. 

Results for the magnetic-field comparisons are displayed in figures 
19 (a, b), which provide time-histories of both the magnitude and the 
individual magnetic-field components based on both inbound and outbound 
interplanetary conditions. We note again, although the shock crossing 
comparisons are somewhat in disagreement since the gasdynamic flow 
fields used in these results were for M = 7.56, 5.96 and y = 2, the 
reasonable comparisons are obtained for the ionosheath magnetic field. 

In particular, we observe the drift with time along the trajectory of the 
trajectory of the agreement of theory with data from the predictions 
based on inbound interplanetary conditions on the inbound leg, to those 
based on outbound conditions on the outbound leg. 

In order to demonstrate the improvement obtained in magnetic-field 

results when a gasdynamic flow-field solution is employed which more 

closely agrees with the observational bow shock location, we have 

displayed in figure 20 (a, b) the analogous time-history magnetic-field 

comparisons when using a = 3.0, y = 5/3 gasdynamic result. In this 

case, results were computed for only the inbound direction ) = 

P 

(3.3°, 0.15°) of the solar wind. As can be seen, there is a marked 
improvement in the agreement near the bow shock, and quite good agreement 
throughout the ionosheath as well as, for both the magnitude and the 
individual magnetic-field components. We note that the general agree- 
ment of theory and observation of the individual components demonstrates 
both the accuracy of the calculation and, in particular, the need for 
accounting in the theoretical results of the variable direction of the 
interplanetary solar wind. 
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CONCLUDING REMARKS 


The application of advanced computational procedures was undertaken 
for the purpose of modeling the interaction of the solar wind with non- 
magnetic planets, with particular emphasis on Venus. Based on the 
successful theoretical model employed previously (ref. 9), i.e., the 
steady, dissipationless, magnetohydrodynamic model for axisymmetr ic , 
supersonic, super-Alfvenic solar-wind flow, a number of important 
theoretical extensions have been developed and included in the computa- 
tional procedures. These include the capability for treating very low 
oncoming interplanetary gasdynamic Mach numbers (M ot - 2.0), as well as 
quite general ionopause shapes. A new family of ionopause shapes has 
been developed which includes the effect of gravitational variation in 
scale height, and has been incorporated in the computational program. 
Additionally, the capability for determining the plasma gasdynamic and 
magnetic-field properties along any arbitrary spacecraft trajectory, 
accounting for an arbitrary oncoming direction of the solar wind, has 
been developed. All of these developments have been incorporated into 
an assemblage of computer codes to enable detailed calculations of the 
solar-wind interaction with planetary atmospheres. The computer codes 
have been extensively documented and are described in a computer user's 
manual included as part of this report. 

Comparisons are reported which verify the correctness of these new 
procedures, and which demonstrate their capability for computing a wide 
range of flows encompassing those typical of solar-wind conditions about 
terrestrial planetary atmospheres. A catalog of sample solar-wind flows 
covering a large number of flow conditions and ionopause geometries was 
established, and reported in summary format in the forms of contour plots 
of important flow-field and magnetic-field properties. Finally, success- 
ful comparisons of results from the theoretical model were made with 
actual spacecraft data obtained from initial orbits of the Pioneer-Venus 
Orbiter. These results have indicated the importance, heretofor largely 
neglected, of the directional variability of the oncoming solar wind. 

All of these results, taken in toto, serve to verify the basic theoreti- 
cal model which underlies the present procedures. Furthermore, it 
demonstrates the value of the present computational procedures as a 
research tool capable of routinely providing - at small computation cost 


47 



and in a format directly compatible with experimental observations - 
details of the solar-wind/planetary atmosphere interaction process not 
previously attainable. 

With regard to future us.es as well as improvements of the present 
model , the obvious need for a detailed study involving comparisons 
between theory and observations for a large number of orbits of the 
Pioneer-Venus Orbiter is clear. Based on the preliminary comparisons for 
orbits 3 and 6, the frozen magnetic-field model appears to be remarkably 
accurate for relatively quiet-time conditions. Similar comparisons of 
the plasma properties indicate a need for an improved interpretation of 
the results from the single-fluid theory in terms of multi-component 
measurements. Questions regarding the possible suppression by the 
interplanetary magnetic field of the number of degrees of freedom of the 
plasma require further study and could be clarified through systematic 
comparisons with data. Additionally, observations from the Pioneer-Venus 
Orbiter of the nightside ionosphere of Venus have indicated a more 
complex and dynamic structure than suspected. These observations point, 
in particular, toward the need for improvement of the simple model used 
in the present method for the determination of the ionosphere boundary. 
This improved determination would involve an iterative procedure in which 
a balance of the sum of the solar-wind gasdynamic plus magnetic pressure 
along the ionopause surface would be maintained against the ionospheric 
pressure. The present method, which balances the Newtonian pressure 
distribution against the ionospheric pressure, represents the first step 
in this iteration. 
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APPENDIX A 


A. 1 INTRODUCTION 

The purpose of this appendix is to describe the operation of the 
assemblage of computer codes which were developed in conjunction 
with the theoretical work presented in this report and organized 
into one program, and to provide sufficient detail to permit 
understanding and use of the program. The program computes the 
flow field of the solar wind about a terrestrial planet, using a 
procedure for the calculation of supersonic/hypersonic flow about 
an axisymmetric blunt body. The corresponding frozen-in magnetic 
field is calculated from the previously-determined velocity and 
density fields. Streamlines and contour lines of various flow- 
field properties and magnetic-field components are also determined. 
Next, these flow-field and magnetic-field values are calculated for 
points along a user-specified trajectory. 

A description of the general operating procedure of the program 
is given, with descriptions of input and output. The program is 
written in FORTRAN IV and has been developed on a CDC 7600 computer. 
University Computing Company (UCC) Standard Plotting Software and 
Functional Software packages are used to produce automated plots. 
Files used, besides TAPE 5 for INPUT and TAPE 6 for OUTPUT, are TAPE1 
for the plot file (system default), TAPE 4 for input file for rerun 
option, and TAPE 9 for storing data for rerun. Typical run times 
for cases using the default parameters are 110 to 120 seconds, using 
the OPT=2 compiler. For a case using the rerun option, which 
employs a previously-calculated flow field, the run time is approxi- 
mately 15 seconds. The storage requirements are 146Kg for small 
core memory and 273Kg for large core memory. 
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A. 2 PROGRAM DESCRIPTION 


For computational purposes, the flow is subdivided into two 
regions, as indicated in the sketch below, with the center of the 
planet as origin. 



The region near the nose of the magnetopause/ionopause includes all 
of the imbedded subsonic flow and part of the supersonic flow. An 
axisymmetric implicit unsteady Euler equation solver is used to 
calculate this part of the flow field. Using the solution plane at 
x = 0.0 to provide starting conditions, the flow field in the purely 
supersonic downstream region is determined by integrating the steady 
Euler equations using a spatial-marching procedure. Streamlines, the 
magnetic field, and contours are calculated using the entire flow 
field, distinguishing between the two regions as required by the 
different forms of the computational grids. A rerun capability is 
provided, where flow-field data is read from a file written on a 
previous run, rather than repeating the blunt-body and marching 
calculations. The computations proceed as shown in the sketch below, 
which provides an overall flow chart of the complete program. The 
program provides for several cases to be run consecutively. 
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Program Flow Chart 












A. 2.1 Calculation Procedure 

After reading in the number of cases in the run, each case is 
calculated independently. Subroutine INPUT reads in all card input 
required for one case, viz. a title, flow conditions, obstacle 
geometry, calculation and print control parameters, and desired 
contour values. The user may supply the obstacle geometry in the 
form of a shape table for an axisymmetric body, or use one of the 
default shapes which are calculated internally by the program. These 
default shapes are the magnetopause equatorial trace, constant scale- 
height ionopauses, and ionopauses having gravitational variation in 
scale-height. The input is printed as the first item of output. 

A. 2. 1.1 Blunt-body calculation 

A computational mesh in polar (Rp, 9) coordinates is established for 
the blunt-body calculation; then, for the marching calculation, this 
is extended into a cylindrical (x,R) system, as indicated below: 

R 


x 1. 0 0 

This method has proven effective except for certain obstacle shapes 
which have a significant amount of flaring at the terminator and/or 
cases involving low free-stream Mach numbers M <3. Under such con- 
ditions, the axial component of velocity may become subsonic at the 
starting plane of a marching calculation (terminator) and the calcula- 
tion cannot proceed. In this case the blunt-body grid must be extended 
past 0 = 90° as shown below: 
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The number of rays added to the blunt-body mesh is controlled by the 
input variable NXADD, and are limited by the requirement, NBLUNT + 
NXADD <39. 

All lengths, x, R, R , are normalized so that the nose of the 

P 

obstacle is at x = 1.0. For the default shapes, rays at equal 
angular increments of A0 are used, starting at -A0/2, up to 90° + 

A0, where A0 = 90°/ (NBLUNT-1 . 5) , and NBLUNT is an input parameter 
describing the number of angular mesh points to be used in the blunt- 
body calculation. Program default value is NBLUNT = 24, so that for 
the default mesh, A0 = 4°. The obstacle shape is determined by inte- 
grating the appropriate differential equation by a trapezoidal 
predictor-corrector method. For a user-supplied shape, the 0 grid is 
determine by rays from the origin through the first NBLUNT points, 
and the reflection of the first ray about the x-axis. Values for R 

P 

are determined by dividing the line segments between the body and 
bow shock wave into NR-1 equal intervals. Thus, including the 
obstacle and bow shock wave, the grid forms NR arcs around the 
obstacle. A starting solution for the blunt-body calculation is 
obtained by guessing a bow shock shape and by prescribing a 
Newtonian pressure distribution on the body. Noting that the 
maximum entropy streamline wets the body, other flow properties on 
the body surface can then be calculated. An initial flow field is 
then established by linear interpolation between the obstacle and 
the guessed bow shock, where the Rankine-Hugoniot relations hold. 

The integration proceeds in time for ITER steps. The initial bow 
shock shape used for the magnetopause equatorial trace and for an 
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ionopause with H/R Q >.0.1 is a correlation shape depending on (M OT , 
Y, H/R q ) and given by the parabola R p = 6 1 /6 Q - x//2H where 

6 q = 1.0 + 1.1 { [ (y-l)M^ + 2 ]/(y+ 1)M^} x (0.9 + 0.5 H/R Q ) 

6 1 = A o {(1 * 273 + 0*009 M^) (0.904 + 0.655 H/R q ) 

X [3.95 - 5.3 H/R 0 + 3.85 (H/R 0 > 2 )} + (R body > x=00 

A 0 = [(Y-l)M 2 + 2 ]/((y+ 1)M 2 ] x 0.78 


For a user-supplied obstacle shape and for an ionopause with 
H /Rq < 0.1, the initial shock s hape used is the curve R p = 

V[1 + A Q (1 + 0.68 0 2 + 0.16 0 4 )]. Information on convergence, the 
final sonic line locations, and the body and final bow shock shape 
are printed from this calculation. 

The flow chart for the blunt-body code is shown in Figure A. 1(a). 

A. 2. 1.2 Marching calculation 

The results at the 0 = 90° plane of the blunt-body calculation are 
used as starting conditions for the marching calculation, after 
proper variable normalization for the internal marching calculation. 

For default geometries, the obstacle shape is determined by integration 
of the appropriate differential equation proceeding from the nose 
downstream at equal 0 increments to form a body-shape table. The 
stepsize along the x-axis is recalculated at every ICONST(49) with 
ICONST(49) being set to 10. At each x-location, R^ody * s < 3 eterm ^ ne< 3 
by linear interpolation. The computational mesh is extended by adding 
the line perpendicular to the x-axis at each step, divided in the 
same manner as for the blunt nose. The calculation marches downstream 
with a maximum stepsize of 1.0 until the terminal location specified 
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by the user has been passed. However, the number of steps is limited 
to 75, after which the calculation will end regardless of the x-location. 
The coordinates of the obstacle and bow shock are printed at each step. 

The grid coordinates and flow-field values are written to a file, 
TAPE9 , which may be saved to use as input for a later run. This 
rerun option, which replaces construction of the computational mesh 
and performance of the blunt-body and marching calculations with the 
reading of the rerun input file TAPE4, is described in section A. 2. 2. 

The flow chart for the marching calculation is provided in figure 
A. 1(b). 

A. 2. 1.3 Streamline calculation 

The streamlines are calculated in two sections, following each of 
the flow-field calculations. Using the results of the blunt-body 
calculation, i.e. the (x,R) grid coordinates, (R ,0) grid coordinates. 

It 

density p/p , and velocity components v v /v and v D /v , the velocity 
magnitude Ivl/v^ and flow angle (j> are calculated. Density p/p m and 
velocity magnitude Ivl/v^ are first smoothed along the rays of con- 
stant-0, using a third-degree least-squares fit with respect to R . 

ir 

Streamlines are then calculated downstream to x = 0.0, using the 
trajectory method and integrating through the velocity field by means 
of a third-order modified Euler integration procedure with the grid 
locations on the bow shock used as starting positions. The flow angle 
<f> = tan ^( v r/ v x) at ea °h point is determined using bivariate linear 
interpolation first in 0, then R^. Points for which 0 < 0° or 0 > 90° 
are discarded in the interpolation. 

The marching calculation provides (x,R) grid coordinates, and 
values of density p/p and velocity components v x / v t an< ^ v R /v^, w ^ ere 
t denotes free-stream stagnation conditions. For compa tibil i ty wi th 
the blunt-body solution, the flow-field values are converted to P/P ro , 
v^/v^, Vj^/v^ before calculating the resultant velocity magnitude 
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|v|/v ro and flow angle <j>. The streamline calculation is continued 
downstream, employing the same method as in the nose region. Starting 
positions on the shock wave for the streamline calculation in the 
marching zone are set at equal R-increments , with a maximum of 50 
streamlines calculated. The flow angle is determined using bivaria te 
linear interpolation first in x, then in R. 

Along the symmetry axis, values of x, p/p^, and 1 v | /v^ are deter- 
mined by extrapolation, using a third-order Lagrangian polynomial in 
0 on each arc of the computational grid. Exact values for the 
stagnation streamline are used where possible, viz. at the bow shock 

p/ Poo = (y+1)m£/[(y-1>m£ + 2] 

IyI/ v co = l/(p/pj 


at the body surface 


p/p oo ( p / p a>) shock 

|y|/ v co = °-° 
x = l . 0 


(Y+l)M o 


/ 


4yM“, - 2 (y-1) 


l/(Y-l) 


Detailed flow-field output may now be printed by subroutine FLOUT, 
with LPRFL as print control variable. In addition to grid coordinates, 
density, velocities and flow angle, values of temperature T/T^ and 
pressure P/P ro are output, where 


T/T^ = 1 + [( Y - 1 )/ 2 ]-m 2.[1 - (|y|/vj 2 ] 
P/P^ = (p/pj (T/TJ 
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Streamline coordinates may also be printed by subroutine STOUT, with 
LPRST as print control variable. A plot of the streamlines is 
generated if the variable LPLOT is true. A flow chart of the stream- 
line calculation is shown in figure A. 1(c). 

A. 2. 1.4 Magnetic-field calculation 

The magnetic field is determined by separately calculating the unit 
components whose directions are parallel, perpendicular, and normal to 
the flow, in the undisturbed solar wind. These components are then 
added vectorially, the resultant being expressed in orthogonal (x,y,z) 
components. The angles in the free stream and between the 
magnetic field and the flow, as shown in the sketch below, are either 
input or, in the case of a trajectory calculation, are calculated 
internally from the input interplanetary magnetic field. 




o* 

£V oVl 


The magnetic-field components are calculated using the following 
formulae in which e signifies a vector of magnitude e in the direction 
of the component field line, and n the unit normal vector. 
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The magnetic-field line vector component B i( which results from the 
interplanetary component B ffl that is parallel to the undisturbed 
solar flow has local magnitude given by ( I v I /v B ) (p/p m ) , and the same 
local direction <j> as the fluid flow. Determination of the normal 
magnetic-field component B n requires calculation of R/R^, where 
is the free-stream cylindrical R-ordinate of the streamline through 
the point under consideration. This is calculated by linearly 
interpolating in the local radial cylindrical coordinate R between 
the streamlines, with R/R^ = 1.0 along the x-axis. The magnetic- 
field vector component B A resulting from the interplanetary com- 
ponent B which is perpendicular to the undisturbed solar-wind 
flow requires the distance vector A-C/A-t^, whose magnitude is 
\hl\/ht o;i and direction is ip , where \ kl\/ is the stretching 
factor of the perpendicular field at the point, and ^ is the 
direction of the field line through the point. The magnitude and 
direction of are calculated according to 

|A£| d l * d 2 1 

Tvt~ d. + d~ A X +~EZ 

00 1 2 oo. 


and 


* = 


-1 

[ Ar l] 

-1 1 

[ Ar ?] 


tan 

Ax.^ 

• d .2 + tan 

Ax 2 

* d l 


«1 + d 2» 
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where the quantities d-jy & 2 ' ^ x i' ^ x 2' ^ r i' Ar 2 • A-C^, and ^a>2 
are described by the sketch below. The points marked (•) on the 
streamlines represent equal-time intervals in the flow. 



The perpendicular field lines are determined by integrating fv dt 
along each streamline, using trapezoidal integration to locate points 
along the streamline at regular increments in time. At, starting at a 
perpendicular field line ahead of the bow shock. Values for |A£|/A£ ot 
and ip are calculated at the points where the perpendicular field 
lines and streamlines intersect, interpolating only along the field 
lines. A generalized quadrilateral interpolation scheme is then 
employed to determine | A-6. | /A-6.^ and ip at the computational grid points, 
using the quadrilateral containing the point formed by the inter- 
section of pairs of adjacent streamlines and perpendicular field 
lines. At the bow shock, an exact formula is used, viz. 


( | Al \/Ll oo ) 2 = 1 + cot 2 0 (1+D 2 ) - 2D x esc 0 * cote x cos (0-6) 
ip = 0 + sin - '*' [D x cot0 x sin (0-6) / ( | A£ | /A£ ot ) ] 


63 



where 


D 2 = 1 - 4 (M 2 sin 2 0-1) (yM 2 sin 2 0 + 1) / [ (y+1) 2 m£ sin 2 0 ] 
cot 6 = tan0 x { (y+l)M 2 / [2 (M 2 sin 2 0 -1)] - 1} 


0 


tan 


^ R shock 

dx 


The values of \Lt\/kl a> at the grid points are smoothed using fifth- 
order least-squares fit with respect to arc length along the arcs 
of th grid. The resultant magnetic field can then be expressed in 
orthogonal (x,y,z) components. The code determines these components 
for the case when the field point is located in the (x,y) plane, 
i;-e., z = 0. These components are given by 


V B 


oo 


B /B 

y' oo 

B /B 

z 00 


cos a n x [cos (f> X cos a p x (IbI/B^)^ 
+ cos iJj x sin a x (|b|/B ot ) a ] 

r " 

cos a x [sin 4> x cos a x (|b|/B ) 
n p ~ oo ii 

+ sin \p x sin a p x (|B|/B oo ) i ] 
sin a n x (B/BJ n 


Magnetic-field components may now be printed by subroutine BOUT, with 
LPRB as print control parameter. The magnetic field is not calculated 
when LPRB = .FALSE, and KBCON=0. A flow chart of the magnetic-field 
calculation is shown in figure A.l(d). 

A. 2. 1.5 Contour calculation and plot generation 

Contours are calculated for velocity |v|/v , density p/p , and 
magnetic components (|B|/B w ) n , ( | B | /B^) ^ , and ( | B | /B^) . The method 

used is a modified version of a procedure developed by R. Sorenson 
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of NASA/Ames Research Center. The boundary is searched for intervals 
which bracket a contour point. Having found one point, the remainder 
of the contour is determined by 'walking' around the contour, 
searching at each step for the interval through which the contour 
line next passes, until a boundary point is reached. Then closed 
contours are found in a similar manner. Linear interpolation is 
used throughout the process. Note that since T/T is a function of 
\v\/v m only, velocity contours may also be considered as temperature 
contours. Temperature and velocity are related by the following 
f unc tion . 



The coordinates of the contour lines can be printed by subroutine 
CONOUT, with LPRCON as print control parameter. 

The program segment which controls the generation of contour plots 
is accessed only when LPLOT = .TRUE. The UCC Plot Routines used to 
produce these plots are AXIS, CHAR, DASH, DOTLN , ENPLT , GREEK, MATH, 
NUMPLT, PLOT, PLTLN , POLAR, RESET, SCALF, and VECTOR. A flow chart 
of the contour calculation and plot generation in figure A. 1(e). 

A. 2. 1.6 Trajectory calculation 

This segment of the program provides theoretical plasma and mag- 
netic-field properties in an output form that is useful for direct 
comparison with actual spacecraft data. Given a sequence of 
coordinates describing the spacecraft trajectory, the program 
calculates the density, temperature, and velocity and magnetic-field 
components at each point. Generation of trajectory plots is con- 
trolled by the logical variable LPLTRJ. The trajectory calculation 
proceeds as follows. 

Input to this calculation includes interplanetary values of 
temperature, density, velocity, and magnetic field together with 
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the trajectory coordinates. The trajectory input is required as 
a function of time and normalized by planetary radius. If the 
logical variable LSUN is TRUE, then it is assumed that the 
trajectory coordinates and vector quantities are expressed in terms 
of a sun-planet (ecliptic) coordinate system. In this case, these 
quantities are converted by the program into a solar-wind coordinate 
system by the transformation 


w 

“w 


w 


( COS ft COS <j)j. 

sin ft 

-cos ft sin <|> 


■sin ft cos <J> 
cos ft 
sin ft sin 4> 


sin 4^ 
0 

cos <f> 


pj 


where (x ,y ,z ) are coordinates in the solar-wind system and (x ,y , 

W V/ & o 

z g ) are coordinates in the sun-planet system. The angles ft and <(> 
are the azimuthal (total aberration) and polar angles, respectively. 
The azimuthal angle, ft, is the angle in the plane of the ecliptic 
between the sun-planet line and the oncoming solar-wind, i.e., the 
x s ~axis and the x w ~axis as shown in figure A. 2. The angle <(>p, posi- 
tive for southward solar-wind flow, measures the deviation of the 
solar-wind from the plane of the ecliptic. Figure A. 2 illustrates 
the transformation from sun-planet ecliptic coordinates to solar- 
wind coordinates. In this case the azimuthal and polar angles 
indicated are both positive. 

If LSUN is FALSE, it is assumed that all input data are referenced 
to the solar-wind coordinate system and this transformation is not 
performed . 

In order to conform with the internal flow-field and magnetic- 
field calculations, the signs of the x and y components of the 
trajectory and vector quantities are reversed. This is, in 
effect, another coordinate transformation which is defined by 
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where (x ,y ,z ) are coordinates referenced to the internal calcula- 
tion system. This transformation is illustrated in figure A. 3. Also 
shown in figure A. 3 is the relationship of the interplanetary 
parallel, perpendicular, and normal magnetic field components to the 
internal calculation system. Specifically, 



B , and B = B 
y z 

2 c n 


The angles Op and a n are now calculated from the relationships 


a = tan 
P 



and 


a = tan 
n 


-1 


B, 


V(B„ ) 2 + (B„ ) 2 


Xr 


Yc 


At this point, all data is in a form compatible with the internal 
calculations and the program can interpolate for flow and magnetic- 
field values along the trajectory. The following procedure is 
repeated at each trajectory point. Noting that the flow is axisym- 
metric, the coordinate system may be rotated to the most convenient 
orientation for the calculation. The present ( x c rY c / z c ) coordinates 
are converted to (x_,R) coordinates by a rotation in the (y_,z_) plane 

C L L 

about the x-axis through the angle 0 = tan ^[z /y ]. This rotation 
c c c 

defines a new coordinate system (x',y',z') in which z' = 0. Subroutine 
IJRAJ now locates the point with reference to the computational flow- 
field grid. The point is either within the ionopause, in the grid 
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region, or beyond the bow shock. If the point is within the ionopause, 
all values are set to zero. If the point lies beyond the bow shock, 
all quantities assume their free-stream values. For points within the 
grid, the velocity magnitude, density, and flow angle <J> are found by 
interpolation using function FTRAJ. From the flow angle <f> and the 
rotation angle 0, velocity components in the (x ,y ,z ) system can 
be calculated according to 


V x = VCOS <j) 

c 

v = vsin 4> cos 9 


v z = vsin <J> sin 0 


Calculation of the magnetic field is complicated somewhat because 
the components are dependent on the incident magnetic field. Using 
a and a n , , B' , and B' are calculated in the rotated (x',y' ,z') 
system by 
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Interpolation is then parried oijt .to determine the magnetic angle 
B 


if ; and the ratios 


then carried out J 
, l^-l , and Up 

n l B oo|X ^ B ooJ 


in the rotated system again 


n 


using the function FTRAJ. Next, the magnetic-field components B^, 
B y' B z * n rotate< 3 system are calculated from 
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Finally, these magnetic-field components are rotated back through 
the angle 0 to yield magnetic-field components referenced to the 
internal calculation system ( x c »y c » z c ) by 
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Subroutine TROUT now prints the trajectory output in both the 
solar-wind (x ,y ,z ) and the sun-planet (x ,y ,z ) coordinate systems 

C C C SSb 

using the transformation below to obtain sun-planet magnetic-field 
vector components from solar-wind magnetic-field vector components. 
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The 


same 


transformation of the solar-wind velocity components (v x , v , 
into sun-planet components (v x » v y s » v z s ) is also done using the 
transformation. 


Finally, if LPLTRJ is true, a file of trajectory plots is created. 

A flow chart for this program segment is shown in figure A. 1(f). 

A. 2. 2 Rerun Option 

The rerun option is used when LRERUN = .TRUE. The blunt-body and 
marching calculations are replaced with the reading of grid coordinates 
and flow-field values from the rerun file, TAPE 4 , which contains data 
written to TAPE9, then saved, on a previous run. Different values for 
any parameter not used in the flow-field calculations may be specified, 
viz. contour values, plot length, magnetic-field angles, and output 
options. Values of AMACH, GAMMA, and HRO are required input, to 
ensure that the input rerun file does contain the case desired for 
rerun. ' If the geometry is user-supplied, the body-shape table will be 
read from TAPE4, and should not be input from cards. 

After reading the card input, MACH, GAMMA, and HRO are tested 
against values from TAPE4. The grid coordinates and flow-field 
values from the blunt-body calculation are read in, then smoothed, and 
streamlines calculated for this region, as previously described. The 
results of the marching calculation are then read, and the streamline 
calculation continued downstream. The calculations then proceed as 
described in section A. 2.1. 


A run must not contain more than one case which uses the rerun 
option. 


A. 2. 3 Program Limitations and Precautions 

The program makes some assumptions about the geometry of the 
obstacle shape around which flow is to be calculated, and about the 
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flow field. The obstacle shape is assumed to be mono tonically 
increasing in cylindrical radius R, going downstream. The nose of 
the obstacle is at x = 1.0. The origin of the (x,R) coordinate 
system is the center of the planet. Obstacle shapes with sharp 
corners should be avoided. In the magnetic-field calculation, the 
first streamline is assumed to be inside the arc described by the 
grid points immediately off the body, downstream of x = 0.0. To 
reduce computational costs, a grid using NR = 10 may be used, in 
which case a lower value of CN may be required. This would reduce 
the running time by approximately 40 percent. A free-stream Mach 
number less than 2.0 is not advised. 

A. 2. 4 Convergence Criteria for BluntaBody Calculation 

The output provides two measures of the convergence of the blunt- 
body calculation. The RMS of shock speed and maximum shock speed 
are printed at each iteration. These quantities should both tend to 
zero as the iterations proceed. A value for q^g, RMS of shock 
speed, of 

— *3 

q m , P < /y x M x 10 
^RMS 1 oo 

where y is the specific heat ratio, and M^ is the free-stream Mach 
number, usually indicates a converged solution. The RMS of error in 
enthalpy, HT, should be less than 1 percent, with the maximum enthalpy 
error also of that order. 

The Courant number, CN, determines the time step size used by the 
calculation. A value not greater than the default of 3.0 should be 
used. For low Mach numbers or a coarser mesh than the default grid, a 
lower value may be preferable. If the default value does not generate 
a converged solution, or if the error message from subroutine SHOCK 
is printed, try lowering CN in increments of 0.5 to find a better 
value of CN. User-supplied bodies may also require a lower Courant 
number . 
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A. 3 DESCRIPTION OF INPUT 

This section describes the card input for the program. An alpha- 
betized dictionary of input variables is provided, defining the 
varibles, listing default values and limitations. A discussion of 
the preparation of the card input is then presented, followed by a 
description of the input card format. 

A. 3.1 Dictionary of Input Variables 

AMACH free-stream Mach number; 3.0 _< AMACH 25.0 is recommended 

ANGN the angle, in degrees, measuring the deviation of the free- 

stream magnetic field from the plane in which B and B 

— if / — : — ~ ~ °°ri ~c° ± 

lie; equal to tan B ro / v I I + |B^ | i see figure A. 3, 

l °°n " 0O - L 

measured in the ( x c /y c f z c ) coordinate system; only specified 
when interplanetary magnetic-field components not specified. 

ANGP the angle, in degrees, measuring the deviation of the in- 

plane magnetic component (B^ + B ) from the direction of 
flow; equal to tan '*'(B /B ); see figure A. 3, measured 

00 11 00 X 

in the ( x c »y c ' z c ) coordinate system; only specified when 
interplanetary magnetic-field components not specified. 

AZANG angle in the ecliptic plane between the sun-planet line and 

the direction of solar-wind flow. See figure A. 2 for 
positive direction. 

BCON(I) KBCON-dimensional array specifying values to be used for mag- 
netic field strength contours 

BINF magnetic field strength free-stream value; set to 1.0 if 

plots desired in nondimensionalized units. 
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BX1 x -component of interplanetary magnetic field; referred to 

s 

sun-planet coordinates 

BY1 y -component of interplanetary magnetic field; referred to 

sun-planet coordinates 

BZ1 z -component of interplanetary magnetic field; referred to 

sun-planet coordinates 

CN Courant number used for blunt-body calculation; program 

default value is 3.0 

GAMMA ratio of plasma specific heats 

HRO obstacle geometry indicator: 

HRO > 0. - ionopause with H/R q = HRO 
HRO = 0. - magnetopause equatorial trace 
HRO < 0. - geometry is user-supplied 

ITER integer, number of iterations for blunt-body calculation; 

program default value is 300 

KBCON integer, number of values specified for magnetic-field con- 

tours; 0 < KBCON _< 20 

KRCON integer, number of values specified for density contours; 

0 < KRCON <20 

KVCON integer, number of values specified for velocity magnitude 

contours; 0 < KVCON < 20 

LGRAV logical variable indicating whether default ionopause is 

calculated with gravitational variation in scale height 
FALSE - no 
TRUE - yes 
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LPLOT 


LPLTRJ 


LPRB 


LPRCON 


LPRFL 


LPRST 


LRERUN 


logical variable indicating whether to create plots or plot 
file 

FALSE - no 
TRUE - yes 


logical variable indicating whether to create trajectory and 
time history plots 
FALSE - no 
TRUE - yes 

logical variable indicating whether to print magnetic field 
output 

FALSE - no 
TRUE - yes 

logical variable indicating whether to print coordinates of 
contours lines 
FALSE - no 
TRUE - yes 


logical variable indicating whether to print detailed flow- 
field output 

FALSE - no 
TRUE - yes 

logical variable indicating whether to print coordinates of 
streamlines 

FALSE - no 
TRUE - yes 


logical variable indicating whether this case uses rerun 
option 

FALSE - perform blunt-body and marching calculations 
TRUE - read results of a previous calculation from 
TAPE 4 


74 



LRSTRT 


LSUN 

LTRAJ 

MARKT ( I ) 
NBLUNT 

NBOD 

NCASE 

NMARKT 

NR 


logical variable indicating whether to use previous shock 
shape as initial guess for blunt body 

TRUE - use shock shape from previous solution. 

(Must have a full solution as an earlier run 
in same job.) 

FALSE - use default initial guess for shock shape 

logical variable indicating whether trajectory input is 
referenced to sun-planet coordinate system 

FALSE - trajectory input in solar-wind coordinates 
TRUE - trajectory input in sun-planet coordinates 

logical variable indicating whether to perform a trajectory 
calcula tion 

TRUE - trajectory calculation, data provided 
FALSE - no trajectory calculation 

NMARKT - dimensional array specifying points to be marked 
for cross reference. If K = NMARKT ( I ) , the Kth point of 
the trajectory is to be marked. 

integer, number of angular mesh points for blunt-body cal- 
culation; for user-supplied geometry, XX (NBLUNT-1) =0. 0; 
program default value, and maximum, is 24 

integer, number of points in body-shape table when geometry 
is user-supplied; 1 _< NBOD < 100 

integer, number of cases to be run consecutively; NCASE > 1 

integer, numbered values specified for cross reference 
points; 0 < NMARKT < 12. 

integer, number of radial mesh points; program default 
value, and maximum, is 19 
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NTRAJ 

NXADD 

POLANG 

RCON(I) 

RHOINF 

RPLNT 

RR (I ) 

TITLE 

TMPINF 
TTRAJ ( I ) 
VC ON (I) 


integer, number of points specified in trajectory table 

integer, number of points to be added to blunt-body grid 
past 0 = 90°, default value is 0. 

angle, measured in degrees, between the plane of the 
ecliptic and direction of solar-wind flow; positive for 
southward flow; see figure A. 2 

KRCON - dimensional array specifying values to be used for 
density contours 

density-free stream value; set to 1.0 if plots desired in 
nondimensional units 

radius of planet in units of nose radius, r plnt/ r o 


NBOD - dimensional array representing the R-locations, in 
cylindrical (x,R) coordinates, of the user-supplied body 
shape; in units of nose radius 

descriptive heading of the case, to be printed on the first 
page of output; may contain up to 80 characters, including 
blanks 

free-stream temperature; set to 1.0 if plots desired in 
nondimensional units 

NTRAJ - dimensioned array specifying time locations of 
trajectory points 

KVCON - dimensional array specifying values to be used for 
velocity contours 
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VINF free-stream velocity; set to 1.0 if plots desired in non- 

dimensional units 

XCALC terminal downstream x-location for marching calculation of 

flow field; XCALC < 0.0; program default value is -1.0 

XPLOT terminal downstream x-location for calculation of stream- 

lines, magnetic field, and contours; XCALC £ XPLOT 0.0; 
program default value is -1.0 

XTRAJ(I) NTRAJ - dimensioned array specifying x g -locations of trajec- 
tory points; in units of planetary radius; when (ANGP, ANGN) 
are specified, XTRAJ (I) is referred to solar-wind x c ~loca- 
tions; see figures A. 2 and A. 3 

XX ( I ) NBOD - dimensional array representing the x-locations, in 

cylindrical (x,R) coordinates, of the user-supplied body 
shape; in units of nose radius. See figures A. 2 and A. 3 

YTRAJ(I) NTRAJ - dimensioned array specifying y -locations of trajec- 

s 

tory points; in units of planetary radius; when (ANGP, ANGN) 
are specified, YTRAJ(I) is referred to solar-wind y c -loca- 
tions; see figures A. 2 and A. 3 

ZTRAJ(I) NTRAJ - dimensioned array specifying z g -locations of trajec- 
tory points; in units of planetary radius; when (ANGP, ANGN) 
are specified, ZTRAJ(I) is referred to solar-wind z c ~loca- 
tions; see figures A. 2 and A. 3 

A. 3. 2 Preparation of Input Data 

The card input for a run consists of one card containing the number 
of cases to be run consecutively. Item 0, followed by a set of input 
for each case, Item 1 through Item 7, and Item 8 if required. Where 
a default value is to be used, the input field should be left blank. 
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For each case, all required variables which do not assume their 
default values should be specified. The input format for all cards 
is described in section A. 3. 3. 

Item 0 - This item consists of one card, containing the number of 
cases in this run, NCASE. 

Item 1 - This card provides identification of the case, TITLE, 
which is printed on the first page of the output for this case. 

Item 2 - This card contains information on the flow conditions 
and body geometry, and parameters required for the blunt-body and 
marching calculations. AMACH, GAMMA, and HRO must be specified for 
each case. For the rerun option, the values are tested against the 
values from the rerun file. The parameters XCALC, NR, NBLUNT, CN, 

ITER are used only when the flow field is to be calculated. These 
variables each assume a default value if the input field is blank. 

Item 3 - This item consists of one card containing the rerun indi- 
cator, LRERUN , the output control variables LPRFL, LPRST, LPRCON, 

LPRB , and LPLOT, the trajectory indicator LTRAJ , and the restart 
indicator LRSTRT. 

Item 4 - This card contains the variables XPLOT, ANGP, ANGN, NXADD, 
and LGRAV. The value for XPLOT is changed by the program to be the 
x-location of the marching calculation immediately upstream of the 
input value for XPLOT. The angles describing the deviation of the 
magnetic field from the flow, ANGP and ANGN, are not required when 
LPRB = .FALSE; KBCON = 0, and LTRAJ = .FALSE, since the magnetic field 
is not calculated under these conditions. ANGP is the angle between 
the vectors (B + B ) and v , while ANGN is the angle between B 

~ 0O„ ~ OO ~ OO J '-'CO 

and (B + B ) , where B , B , B are the components of the free- 

~ 00 1| ~ CO j. — OO II r ~ oo J. ~ OOjj ‘ 

stream magnetic field, B^, which are parallel, perpendicular, and nor- 
mal to v^, and are as indicated in figure A. 3. The two angles ANGP 
and ANGN fully determine the half plane for which the magnetic field 
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is to be calculated. The magnetic field for the other half of the 
plane may be calculated by rerunning with the sign of ANGP reversed. 
When (B + B ) = 0, ANGN = +90°, ANGP = 0°; and, when B =0, 

~ OO — ~oo n 

ANGN = 0°. Note that ANGP and ANGN are referenced to the (x ,y ,z ) 

c c c 

system and are specified only when the interplanetary magnetic-field 
components are not specified. 

If both LTRAJ = .TRUE, and LSUN = .TRUE., then ANGP and ANGN are 
calculated internally from the interplanetary magnetic-field components 
BX1, BY1 , and BZ1. 

Item 5 - This item contains the values for the velocity contours. 
The first card contains KVC0N, the number of values specified for 
VC ON. If KVC0N > 0, the contour values are then read. Up to three 
cards may be required to accommodate the values, eight per card, maxi- 
mum of 20. The contour values should be monotonically increasing, with 
at least one value within the range of the magnitude of the velocity 
in the region for which contours are to be calculated. 

Item 6 - This item contains the values for the density contours. 

The description is similar to that for Item 5, with KRCON being the 
number of values specified, and RCON the array of values. 

Item 7 - This item contains the values for the magnetic-field 
contours. The description is similar to that for Item 5, with 
KBCON being the number of values specified, and BCON the array of 
values. Note that the same contour values are used for the parallel 
and perpendicular components. 

Item 8 - This optional item is required when HRO < 0.0 and LRERUN = 
.FALSE., and contains the body-shape table for the user-supplied 
geometry. The first card contains NBOD, the number of points in the 
shape table. The next NBOD cards contain the cylindrical (x,R) coordi- 
nates of these points, [XX(I), RR(I)], one point per card. The points 
supplied by the user determine the 0-spacing of the mesh used for the 
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blunt-body calculation. The first point should be near, but not on, the 
x-axis. A suggested location is such that the 0-spacing between the 
first point and the x-axis is half the 6-spacing between the first two 
points. The blunt-body calculation adds a point which is the reflec- 
tion about the x-axis of the first point in the body-shape table. The 
(NBLUNT-1 ) ^ point should be at x = 0.0. The BLUNT*"* 1 point is also 
used to create the grid for the blunt-body calculation. The coordi- 
nates must be normalized so that the planet center is at (0.,0.) and 
the nose of the body at (l.,0.). 

Item 9 - This optional item is read only when LTRAJ is TRUE. The 

first card contains NTRAJ, the number of points in the trajectory. 

Then follows NTRAJ cards, each containing the time T, and location (x g , 

y ,z ) of one point. The time values should be monotonically increas- 
s s 

ing. At present, NTRAJ £ 100 is required. Note that when ANGP and 
ANGN are specified, the trajectory is specified in ( X C >Y C » Z C ) coordinates. 

Item 10 - This item is ready only when LTRAJ is TRUE. The 
variable LPLTRJ indicates whether plots are to be produced of the tra- 
jectory and time histories. The relative size of the planet to the 
ionopause is given by RPLNT, which may be 0.0, in which case, a value 
of 1.0 is assumed in the calculations, but the planet is not drawn on 
the plots. Next are the four free-stream values v , T , p , B . If 
the plots are desired to be in nond imensional units, any or all of 
these values may be input as 1.0. Each quantity must have a value, 
zero is not permissible. 

Item 11 - This item is read only when LTRAJ is TRUE. The first 
card contains NMARKT, the number of values specified for MARKT, 
(presently maximum of 12). If NMARKT = 0, only this card is required. 

If NMARKT > 0, the values of MARKT are read, 8 per card. 

Item 12 - This item, which includes the variables LSUN, AZANG, 
P0LANG, BX1 , BY 1 , and BZ1, is read only when LTRAJ is true. 
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A. 3. 3 Format of Input Data 

Four format types are used for the input data. For real numbers 
(F-format) , a decimal point is required. Integers (I-format) should 
be right-adjusted in the field. For logical variables (L-format) , 
the first non-blank character in the field, which should be 'T' or 
'F', determines the value. Note that a blank input field is inter- 
preted as 'FALSE'. The title, which is in A-format, may contain any 
valid character. 

A description of the card format of the input data follows, with 
item numbers corresponding to those in section A. 3. 2: 


81 



Item No. 0: 1 card 


Variable 
Card Column 

Format type 


NCA5E 

10 

I 


Item No. 1: 1 card 


Variable 

Card Column 
Format type 


Title 


A 


80 


Item No. 2: 1 card 


Variable 

AMACH 

GAMMA 

HRO 

XCALC 

NR 

NBLUNT 

CN 

ITER 

Card column 

10 

20 

30 

40 

50 

60 

70 

80 

Format type 

F 

F 

F 

F 

F 

F 

F 

F 


Item No. 3: 1 card 


Variable 

L RE RUN 

LPRFL 

LPRST 

LPRCON 

LPRB 

LPLOT 

LTRAJ 

LRSTRT 

Card column 

10 

20 

30 

40 

50 

60 

70 

80 

Format type 

L 

L 

L 

L 

L 

L 

L 

L 


Item No. 4: 1 card 


Variable 

XPLOT 

ANGP 

ANGN 

NXADD 

LGRAV 

Card column 

10 

20 

30 

40 

50 

Format type 

F 

F 

F 

N 

L 


Item No. 5: a) 1 card 

Variable 
Card column 
Format type 


Item No 
KVCON 

10 

I 


Variable 
Card column 
Format type 


b) 0 to 3 cards as needed for up to 20 values, 8 per card 


VCON(l) 

VCON (2) 

10 

20 

F 

F 




VCON (KVCON) 


30 

40 

50 

60 


F 

F 

F 


F 


70 


F 


801 



































































Item No. 6: a) 1 card 

Variable 
Card column 
Format type 


KRCON 

10 

- — 


b) 0 to 3 cards 


Variable 

RC0N(1) 

RCON (2) 



RCON (KRCON) 




Card column 

10 

20 

30 

40 

50 

60 

70 

80 

Format type 

F 

F 

F 

F 

F 

F 

F 

F 


Item No. 7 a) 1 card 

Variable 
Card column 
Format type 


KBCON 

10 

I 


b) 0 to 3 cards 


Variable 

BOON (1) 

BOON (2) 



BOON (KBCON) 




Card column 

10 

20 

30 

40 

50 

60 

70 

80 

Format type 

F 

F 

F 

F 

F 

F 

F 

F 


Item No. 8 a) 1 card (this item required only when HRO < 0.0 and LRERUN = .FLASE.) 

Variable 
Card column 
Format type 


NBOD 

10 

I 


b) NBOD cards 


XX(I) 

RR(I) 

10 

20 




00 

u> 






































00 


Item No. 9: a) 1 card (this item read only when LTRAJ is TRUE) 

Variable 
Card column 
Format type 


NT RAJ 

10 

I 


Variable 
Card column 
Format type 


Variable 
Card column 
Format type 


Item No. 11: a) 1 card (this item read only when LTRAJ is TRUE) 

Variable 
Card column 
Format type 


NMARKT 

io" 

I 


b) NT RAJ cards 


TTRAJ(I) 

XTRAJ(I) 

YTRAJ(I) 

ZTRAJ(I) 

ien LTRAJ is TRUE) 

10 

20 

30 

40 

F 

F 

F 

F 

Item No. 10: 1 card (this item 

read only wl 

LPLTRJ 

RPLNT 

VINF 

RHOINF 

TMPINF 

BINF 

10 

20 

30 

40 

50 

60 

b i 

F 

F , 

F 

F 

F 


Variable 
Card column 

Format type 


b) 0-2 cards 


MARKT(l) 

MARKT ( 2 ) 




1 

■TinUtfllliBi 


10 

20 

30 

40 

50 

60 

70 


I 

I 

I 

I 

I 

I 

i 

I 1 


Item No. 12: 1 card (this item read only when LTRAJ is TRUE) 

Variable 
Card column 
Format type 


LSUN 

AZANG 

POLANG 

BX1 

BYl 

BZl 

10 

20 

30 

40 

50 

60 

L 

F 

F 

F 

F 

F 

























































A. 4 DESCRIPTION OF OUTPUT 


This section describes the output of the computer program. The 
contents of each output item are specified and discussed. The printed 
output consists of seven items, five of which are optional and are 
controlled with input parameters. Plotted output is also optional. 

The first output item consists of a banner page and the input data. 
The input is presented in two forms: first, as images of the input 

cards, and then with identification of each variable. Default values 
are printed as if they were input. Parameters CN, NR, NBLUNT, ITER 
for the blunt-body calculation and XCALC, the terminal location for the 
marching calculation, are printed only when the flow field is to be 
calculated. When the obstacle geometry is user-supplied, the input 
body-shape table is printed. For a default geometry, the body shape is 
indicated by the description "default ionopause shape for constant 
scale height with H/RO = ", or "default ionopause shape with gravi- 

tational variation in scale height, H/RO = ". Trajectory input is 
printed only when LTRAJ is true. 

The second output item is not printed when LRERUN = .TRUE. From 
the blunt-body calculation, the shock speed at each iteration, the 
final enthalpy error, final sonic-line location, and body and final 
bow-shock shape are printed. For the marching calculation, the down- 
stream x-location and body and shock ordinates are output. There is 
no control variable allowing the user to suppress this item of out- 
put when the flow field is calculated. 

Detailed flow-field output is the third item, and is printed only 
when LPRFL = .TRUE. Coordinates are labeled as X/D, R/D, RP/D, or 
X/RO, R/RO, RP/RO, to emphasize that distances are normalized by 
the distance from the center of the planet to the nose of the body, 

D for the magnetopause, RO for an ionopause. Along the symmetry axis, 
the values printed are velocity magnitude V/VINF, density RHO/RHOINF, 
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temperature T/TINF, and pressure P/PINF. Over the rest of the flow 
field, values are also given for velocity components VX/VINF, VR/VINF, 
and flow angle <j>. Note that the flow angle is the deviation of the 
flow about the obstacle, and so 0° < <j> _< 90°. 

The next output item is the (x,R) coordinates of the streamlines. 
For blunt-body region, the (Rp,0) coordinates of the starting posi- 
tion on the bow shock wave are also given. This item is printed only 
when LPRST = .TRUE. 

The magnetic-field components are then printed, if LPPRB = .TRUE. 
The location of each point is defined in (R ,0) coordinates for the 

hr 

blunt-body region, and (x,R) coordinates for the downstream marching 
region. The components along field lines parallel, perpendicular, and 
normal to the flow in the free stream are printed as B/BINF (PARALLEL) , 
B/BINF (PERP) , B/BINF (NORMAL) . The orthogonal ( X C »Y C / Z C ) com- 
ponents of the resultant are printed as BX/B INF (RESULTANT) , BY/BINF 
(RESULTANT), BZ/BINF (RESULTANT) . The magnetic field in the symmetry 
plane, defined by the vector sum [ (B/B ) + (B/B ) ] , is also 

oo || <v oo 

printed, and is given by the magnitude B/BINF (IN-PLANE) and direction 
B-ANGLE (IN-PLANE) of the vector. We note, as pointed out in the 
text, that the orthogonal magnetic-field components printed here 
correspond to those in the ( x c »y c ) plane, i.e., z c = 0. 

The next item printed is the (x c ,R) coordinates of the contours, 
for which LPRCON is the logical control variable. Noting that temp- 
erature and velocity contours coincide, the corresponding value of 
T/TINF is printed along with V/VINF for the velocity contours. There 
are three nonfatal error messages which may occur - see section A. 5. 

Trajectory output is the last item to be printed. This output is 

presented first in terms of the solar-wind coordinate system (x , y , 

c c 

z_) , and then in terms of sun-planet coordinates (x ,y ,z ) . 
c r s J s s 
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The trajectory coordinates are printed as a function of time and 

are shown normalized by both RO and the planetary radius. Next, flow 

and magnetic-field componets are printed for each trajectory point. 

This output is presented in both nondimensional and dimensional ized 

forms and includes |v|, v , v , v , density, temperature, |B|, B , B , 

x y z. ^ x y 

and B . 
z 

The program also has the capability to produce two sets of 
plotted output using UCC plot routines AXIS, CHAR, DASH, DOTLN, 

ENPLT, GREEK, MATH, NUMPLT, PLOT, PLTLN, POLAR, SCALF, and VECTOR. 

The first set of plots is generated when LPLOT = .TRUE, and provides 
a pictorial representation of the streamlines and contours with a 
maximum of seven frames produced. The first frame is a plot of the 
streamlines followed by contour plots of veloci ty magni tude, tempera- 
ture, and density. The next three frames are contour plots of the 
unit parallel, perpendicular, and normal magnetic-field components. 
These plots are referred to the solar-wind (x,R) coordinate 
system. 

The second set of plots is produced according to the value of 

the logical variable LPLTRJ. This set consists of twelve plots. 

The first frame is a projection of the trajectory rotated onto the 

x-R plane. The second frame is a plot of the trajectory projected 

onto the Y c ~ z c plane. The remaining frames are time-history plots of 

density, temperature, velocity, and magnetic field. The velocity 

plots include magnitude and three components as do the magnetic 

field plots. The vector components are referred to the sun-planet 

ecliptic (x ,y_,z ) coordinates, 
s s s 

A. 5 PROGRAM ERROR MESSAGES 

This section lists the messages printed by the program, and indi- 
cates what action should be taken by the user. 
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(1) ***** execution terminated ***** 

RERUN DATA ON TAPE 4 DOES NOT AGREE 
WITH CASE SPECIFIED ON CARD INPUT: 

MACH NO. GAMMA H/RO 

FROM CARDS 
FROM TAPE 4 

The first three parameters of item 2 of the input for a case 

using the rerun option should agree with those used when creating 

-5 

the file. The tolerance used in comparing the values is 10 . For 

a user-supplied geometry, it is sufficient for both values of H/R q 
to be negative. 

(2) ***** EXECUTION TERMINATED ***** 

ARRAY OF CONTOUR VALUES IMPROPERLY SPECIFIED 


When specified, the contour values should be monotonically in- 
creasing with at least one value in the range of the velocity, density, 
or magnetic-field strength for the region under consideration. This 
error does not inhibit generation of the rerun file. 

(3) CONTOUR SEARCH ABORTED - TABLE OVERFLOW IN NAD 

The program allows for 29 contour lines to be found, storing the 
starting address of each contour line in array NAD. This message 
indicates that at least one more contour line could be found. If the 
user requires all the contours of the levels specified, the case should 
be rerun in two parts. Otherwise, reduce the number of contour levels 
specified . 

(4) CONTOUR SEARCH ABORTED - TABLE OVERFLOW IN (X,Y) 

The contour lines may be described by up to 1000 points, stored in 
arrays X and Y. This message indicates that more points would be 
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required for the contour lines requested. The last contour line found 
will be incomplete. As with (3), either reduce the number of contour 
levels or run as two cases. 

(5) NEGATIVE PRESSURE DETECTED BY SHOCK AT J= 

PN= P0= PTAU= 

This message is printed by the blunt-body code when a negative 
pressure has been calculated at the shock on this iteration, at 
radial locations J. The quantities printed are: PN, the pressure 

calculated on this step; PO, the pressure from the previous step; 
and PTAU, the partial derivative of pressure with respect to time. 

This condition indicates that the shock wave motion is too extreme. 
Lowering the value of CN, and thus reducing the time step, may 
remove the problem. 

The following messages (6)- (10) usually result from using an 
obstacle geometry which is in some way too severe for the program to 
handle in its present form. The obstacle slope may be sufficiently 
high at x = 0.0 that the axial Mach number becomes subsonic in the 
starting solution for the marching calculation, or there may be a 
sharp corner in the profile. Check input, particularly free-stream 
Mach number and body geometry. 

(6) NEGATIVE PRESSURE ON BODY DETECTED BY BNDRY, PB= AT J= 

This message indicates that a negative pressure on the body, PB, 
has been calculated at radial location J. 

(7) NEGATIVE PRESSURE OR DENSITY ON BODY DETECTED BY BNDRYM AT X= 

PB= RHOB= VXB= VRB= 

The program makes internal corrections when this condition occurs, 
resulting pressure PB, density RHOB, and velocity components VXB and 
VRB. 
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(8) NEGATIVE SIGMA-BAR-1 IN EIGENM INDICATES SUBSONIC FLOW AT 1= 


(9) NEGATIVE SIGMA-BAR-2 IN EIGENM INDICATES SUBSONIC FLOW AT 1= 

These messages are printed when subsonic flow is detected by the 
marching calculation. The computed stepsize for this region will be 
quite small. 

(10) BODY TURN STOPPED AT M2=100 

This message indicates that the body has a sharp corner, which has 
been limited to 100° when being transformed. 

A. 6 SAMPLE CASE 

The sample case presented in this section is based on actual 
interplanetary conditions as measured by the solar-wind plasma 
analyzer, the fluxgate magnetometer, and retarding potential plasma 

analyzer on the Pioneer-Venus Orbiter for orbit 3. 

The sample case is run alone and is set up to produce all pos- 
sible output. The gasdynamic solution is to be calculated about a 
default ionopause shape with H/R q = 0.03, M ot = 3.0, and y = 5/3. 

The value of H/R is based on measurements of ionospheric density and 
temperature by the retarding potential plasma analyzer. Streamlines, 
magnetic-field components, and contours are desired to a downstream 
location of -5.5 x/R o . Contour values are specified for all quant- 
ities. Interplanetary values for veloci ty magni tude and direction, 
density, and temperature were provided by the solar-wind plasma 
analyzer and for the magnetic field by the fluxgate magnetometer. 

The input data is tabulated in figure A. 4, with item numbers 
corresponding to those in sections A. 3. 2 and A. 3. 3. The first card, 
item 0, indicates that there is one case to run. The remaining 
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fifty-five cards provide the data for this case. Item 1 contains 
the identifying title. On the next card, item 2, values are speci- 
fied for AMACH, GAMMA, HRO, and XCALC. The other data fields are 
left blank to indicate that the default values will be used. The 
values of the logical variables of item 3 specify that the flow 
field is to be calculated and that full printed and plotted output 
is to be produced. Item 4 defines the plot length to be -5.5 x/R Q . 
The fields for ANGP and ANGN are left blank as they are to be 
calculated internally by the program. Items 5, 6, and 7 specify the 
contour levels to be used - 14 for velocity and temperature, 11 for 
density, and 13 for magnetic-field strength. Item 8 is omitted 
because the obstacle geometry is one of the default shapes for which 
the coordinates are calculated internally. The next 37 cards, item 
9, are the trajectory coordinates, indicating time (in minutes from 
periapsis and the three spacial coordinates normalized by planetary 
radius). Item 10 indicates that trajectory plots are to be 
generated. This item also specifies free-stream values of velocity, 
density, temperature, and magnetic-field strength. The next two 
cards, item 11, indicates that the fourth, ninth, eleventh, and 
nineteenth trajectory points are to be marked on the plots for 
cross- reference. The last input card, item 12 indicates that the 
given trajectory coordinates are expressed in sun-planet coordi- 
nates. The azimuthal and polar angles, ft and cfi^, are also specified 
by this item as are the free-stream magnetic-field components. 

Figure A. 5 presents portions of the printed output from this 
sample case. The full printed output is approximately 6,000 lines. 
Figure A. 6 shows the 19 plots which are produced by the program for 
this case. 
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Figure A. 1(a).- Flow chart for blunt-body calculation. 
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Figure A. 1(b).- Flow chart for marching calculation. 
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Figure A, 1(d).- Flow chart of 
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ignetic-f ield 


calculation. 
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Figure A. 1(e).- Flow chart of contour and plot generation 

calculation. 
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Figure A. 1(e).- Concluded 


































Figure A. 2.- Illustration of the azimuthal (ft) and polar (6) 
solar-wind angles, both shown in a positive sense, p 
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Figure A. 5.- Abbreviated print output for sample case. 
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Figure A. 5.- Continued. 
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Figure A. 5.- Continued 
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Figure A.5.- Continued, 
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FlOW FI £1 0 AND MAGNETIC FIclO C 0 "*° WgWT * * L0W6 T RAJECTO R Y 
( SPL AR WIND COORDINATE SY$T£M1 


(DIMENSIONAL* USING INPUT TNT*RPLANETA*Y VALUED 


INTERPLANETARY nacn hunger 
RATIO OF SPECIFIC HEATS 
XNTERFLANfTARY VELOCITY 
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Figure A.5.- 


Concluded. 


119 



Figure A. 6,- plot output for sample case 












Figure A. 6.- Continued 
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Figure A. 6.- Continued. 
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MAGNETIC FIELD vs TIME 


( Y-COMPONENT ) 



MAGNETIC FIELD vs TIME 

( Z-COMPONENT ) 



Figure A. 6.- Concluded. 
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APPENDIX B 


LISTING OF COMPUTER PROGRAM 



132 


C 


•RQCfiM MAI« I INPUT* OUTPUT, TAP 15 •INPUT, T 4 PE 6 "OUTPUT* 
* TAPEl#TAPf 4 ,TAP |41 


inr.TCAi 

COMMON 


l»B tUN.LPRF L*L*RS T,LPRC0N,LPR8, LPLOT* LTAAJ.LRSTRT 
/P*OPT/ Lt ERUN.LPRFl, LP*ST,lPRCON»lRR4,L PLOT.LTR AJ.ltSTRT 


VRTTEI6.29JI 
CALI ECMINP 
• F AOf 5,1001 NCASI 
•>0 2'/ ICA$E • !» NCASE 
CALL INPUT 

IF ILRFRUN) GO TO 10 
-All RLUNT4 

r all ma»ch 

ft n TO 15 
13 CALL RERUN 
15 CONTINUE 
CALL B l OWST 
TF CLPPFL) CALL FLOUT 
IF IIPRSTI CALL STOUT 
-ALL 3-0ftP 
IF ( L R* 9 1 CALL «0'JT 
CALL CONTUR 

TF iltpaji call TRAJEC 
2J CONTINUE 
*TDP 


MAIN 

MAIN 

PPOMT 

PPOPT 

MAH 

MAIN 

MAH 

RAIN 

MAIN 

MAH 

MAIN 

MAIN 

HAH 

MAIN 

MAH 

MAIN 

MAIN 

MAH 

"AH 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 


11 J. FOPNATITU,) 

2C-J fo»MATI 1HJ, //////////,33T,62UH*)/3 3X,62( 1H*) M 3 X# 2 N* *, 23 x, 

• 13NPR0GBAM S 01 4R , 22X, 2H**, /33T. 2 H* • , 5 4 X , 2H * • / , 33 x , ? h* • , 2 4 X, 

• 1Ch0ETE«mHES.2AX»2HM*W.33V*2NP«,MX,?NP»/,33X,2H**,4x; 

• .^t ! 9 FL0W PIST PLANETAAT Mi'iMETO/IONOSPHEPES.AX# 

• ?H**,/,33x,2h**, 34*, 2N**, /, 33X,2H**, ?7x, 5HUSING, 26¥,2 h** , /, 


MAH 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 


• -.eer.r A»»A7MCULLr CONSERVATIVE FINITE 

• OTFF ERtN.E UGO#ITHNS,5X,2H**,/,3 3X,2H**,5 8X,*H**,/, 33X,2H**,5SX, 

, 2H**#/*33X*2HP*,58X.2H***/,33X*?N*P,2AX,lf MMPITTEN RV.2AX, 
•’M**,/,33x,2H**,54X*2H**,/,33X»2H**,9X, 41HSTEPHEN S. *TAH4»A, MM 
•iPA C* T#uniN&ER,,5X,2M**, /* 33X.2H**, J$ x,2H**, /, 31X,2H*«, 20 X, 

• 20HAND DANIEL J. KIENKE*18X,2M**,/,33X,2H**,58X,2H**, /,33X, 

• 2M**,58X, 2H**, /, 33 X, 2H** *5 BX /, 33X, 2H**,irx»3PUNtELSEN 

• ENGINEMTNG AND RESEARCH, TN C ., 10X* 2 mm, /,33 X*2H*M5« X , \ H**, /, 33 X 

• .2NP*. 17X.25MMOUNTAH VIEW, CAL I FflP “T A, 1 S », 2 *• * , /, 3 3 X , 2H ♦ * , 

• ?8».24**,/,3 3X,2M**,5 9X,2HP*,M3X,6?UH*»,/,33X,t2tm*| | 


C 

c 

c 

c 


c 

C 


SUBROUTINE AHGELIELLINF.GANELf 1,11 


THIS SURROUTINE INTERPOLATES *0R EL/ELIM* AND G Am 
•OINT FROM THE ARRAYS El*F ANf> GAMMF 


AT the ci»JI grid 


LEVEL ?»N9,N3F,XRF,RMF»ElRF»GAMftc 

COMMON /8VAL / NR,NBF(31),XBF{51,lhil/t,P8F(51,1001,EL6 c <51,100l» 

• G A“M*I 51, l(,r 1 

COMMON /SHOCKS/ DRSDX(100I*nSTI50I 
LFVEL 2* XST, YST,NUMST, NST 

COMNON /STREAM/ *ST(50, 1521, YST|5w*152l .NUMSTI5C). NST 
- 0 m MO N / POUNDS / x 8(101 10CI*Y800(nu>)»KSHK<lMI , Y$Mtf < DO • 

* NPMAX.NTMAX* AMACH»GAMMA,HPO#NHtNDX 

COMMON /FLOW/ XCI20»100I*YC (23, 19Ct»VF|21, 1131, RHnf(2C* 10C1 
COMMON /ONSTRM/ IPLOT,NTEND,NTADO,NX*LPT 
OIMENSION X 0 ( AI»RQ(Al»ElOUItGAMQ(Al 


IF POINT IS ON SHOCK, USE FORMULAE A*»0 SAVE RESULTS 


IF (I , t T, NRMAI) GO TO IOC 
IF IJ .GT. II GO TO 1C 
FLp«LMFC1,2 I 
A NP»G AMPF ( 1,2) 

GO TO 43 

13 THET«ATAN(DR$OX( j| 1 
*2«SlNITHETI**2 
EM2«AMACHP*2 

GAM2. (gahmar1,0H9»9*EM2 

002>1.0-<EN2*S2-1.0t*(GAMNA*EN2*S2*1.0) /IGAM»**2*52I 
00*S0RTin02l ' 

C0TH«1,0/0RS0V( J ) 

TO*GAMZ/( EM 2*52-1. PI-1,0 
DELT-ATANtCOTH/TOI 

EL *50*11 1, 3 *COTH*COTH*( 1,0*002 I -2,0*00* CTD + 1.0 1 *C0TM*SI N < CELT > 1 
AN6-THET*AS H(DD*COTH*StN(THET-DELT)/EL > 


ANGEL 

angel 

angel 

ANG«l 

ANGEL 

MVAL 

AVAL 

•VAL 

SHOCKS 

STSEA- 

STREAM 

POUNDS 

p O'/NOS 

FLOW 

DNSTRM 

ANGEL 

*N6£l 

ANGEL 

ANGEL 

ANGEL 

angel 

ANG'L 

ANGEL 

ANGEL 

ANCfl 

ANGEL 

ANGEL 

ANGEL 

ANGEL 

ANGEL 

ANGEL 

ANGEL 

ANGEL 

ANGEL 

ANGEL 




43 EILINF-Cl 
GAMEl-ANG 
•ETURN 
C 

C I* POINT IS ON AXIS USE LINEAR INTERPOLATION 

ICO XpXCUWI 
T-VCII, Jl 

VF IJ ,GT. II GO TO 20J 

N.NPF(l) 

6P 110 K-1,N 

IF |X *t T, X*F(1,K>) CO TO 12J 
110 CONTINUE 

120 «LLHF.ELMFIl,K-ll*(X-YBFIl i K-l!l*IElPF|l,K)-ELBFIl,K-lll 

* / IXRF (1,K1-X8FI1,K-1I1 
GAMEL«ANG 

•ETURN 

C 

C TF POINT IS AT X-2PLOT, USE LINEAR INTERPOLATION 

2M IF (j ,LT, NX MAX I GO TO 3C9 
NIM.NPFI3I*! 
on 210 TM-S,NST 
TN«TM*1 
N«N*F(*N1*1 

IF IY .IT. RMFIIN.Nl) GO TO 220 
NTM.N 

2K. CONTI N*>F 

ELLINF.gLMFI TN,S)*(Y-RpG{tN*Nt l*CEL— EL*F( js,N) | 

* /|ycinrmax*mxmaxi-rm«iin.nu 
0A*>FI.«CAMPFIIn,m) 4( Y-»MF(lM,NI)*(ANG-GAMRF|rN,Nn 

* /lYClNRMAK.NXMAXI-PPFIIN.N)} 

• E t, irn 

223 ELL HF-ELPF (TM,MIM>*( Y-P8F(IM,NIN||*( £L* e (IN,N| -ELRF( IN,NIN) I 

* /|RMF(IN,N|-»8F(IM,NHI| 

GAMEL ,r,AMPF I IM*NIM| *( Y-RPFI 1 M, NIN 1 1 • I C* MR* I T N, N l-G A MBF | IN. Nl N 1 1 

* /<*PFUN,N)-RBF(IM,NIMn 
RETURN 

r 

C TNTfPn® POINT - USE QUADRILATERAL intfrpql ATION 

c 

3C 3 Nl«NS*m 

NMAV*NPF(S)*1 

^0 TST-l.NST 

N2-NMFI TST*1»*1 

IF |N2 . GT, NMAX1 N2-NM4X 

N.M1N0(N1,N2I 

00 31.* 

TF ix .IT. X8F(TST*1, JJII GO TO 34C 
3 1 J CONTINUF 
CO TO P*n 
C 

c GTND 0*; ADH LATERAL WHICH CONTAINS POINT 

C 

34j tc it ,C,T. RMFIIST*1, JJII GO TP 58C 

tF |V3F(l$T«l, JJ| . LT» XSTt 1ST* II I GO TO 5*0 
SLOPE*(»MFt IST*1,JJ|-VW(X«F(IST*1,JJI-X| 

SL OP® !■ | r«f (IST«1* JJ)-RPFIIST* 1, JJ-in 

* /IXPG|tST*l,JJ)— XpF|XST*l»JJ-ll) 

IF (SL0*E1 ,0T. SLOPE) GO TO 5*0 

IF UJ • EO. N> GO TIJ 35«i 

SI 0P£2-IRMFmst* 1,J JI-RPGIIST, JJII/HPF ( T ST*1 , J J I -X BF 1 1ST, J J I I 
TF I S LOPf 2 ,LT. SLOPE) GO TO 39L 
*53 C PNTI Nfif 

»0(1I-XMFIIST*1, jji 
M 0I1I •RRF(tST*l, JJ) 

ElOU)»FlBF(tST*l, JJ| 
ftlM 0 llUGAMMC(i 3 T*l»JJ| 

if IXRF(IST*1, JJ -11 .it. XSTlIST.ll) CO TO 540 

X0|4)«XPF<IST*1* JJ-ll 

B0f4)-RPFIIST*1,JJ-1) 

ELOUI-EIPF IIST*1* JJ-ll 
GAM0UI*G4MPFUST*1,JJ-1) 

TF (JJ .EO, N I GO TO 4JL 
363 Tf (I3T .f 0 , J) 60 TO 373 

TF IXPFI 1ST, J j-1) ,LT. XSTI IST-1*1)I GO T^ 56f 
3 7j v 0f 31 *XRF( I ST, J J-1 ) 

RQ(3>*RMF(IST*JJ«1) 

ELOm-ElBFIIST, JJ-ll 
GANQl 31 >GANMF( 1ST, JJ-ll 
383 X0I2?-XPFIIST,JJI 
*0(21 .RPFIIST, JJI 
FIOHI.ELMFIIST.JJI 
GAMQt 21 "GAMMEI 1ST, J JI 


ANGEL 

33 

ANGEL 

34 

ANGEL 

35 

ANGEL 

36 

ANGEL 

J7 

ANGEL 

38 

AN CEL 

39 

ANGEL 

40 

ANGEL 

41 

ANGEL 

42 

ANGEL 

43 

ANGEL 

44 

angel 

4? 

ANGEL 

46 

angel 

4T 

ANGEL 

48 

angel 

44 

angel 

5 f 

angel 

41 

angel 

52 

angel 

53 

angel 

54 

ANGEL 

55 

angel 

56 

ANGEL 

57 

ANGEL 

48 

ANGEL 

54 

ANGEL 

65 

ANGEL 

41 

angel 

62 

ANG*l 

61 

ANG c l 

64 

ANGEL 

65 

ANCEl 

66 

ANGFL 

67 

ANGEL 

68 

ANGEL 

69 

angel 

TP 

ANGFL 

71 

ANGEL 

72 

ANGEL 

73 

angel 

74 

ANGFL 

75 

ANGFL 

76 

angel 

77 

ANGFL 

74 

angel 

To 

ANGFL 

90 

ANCH 

81 

ANGEL 

82 

angel 

«1 

ANGEL 

*4 

ANGEL 

85 

angel 

86 

ANGEL 

87 

ANCEl 

4* 

ANCFL 

40 

ANGEL 

9C 

ANGEL 

01 

ANCEl 

62 

ANGEL 

03 

ANCEL 

64 

ANGEL 

9? 

ANGEL 

46 

ANGFL 

97 

ANGEL 

98 

ANGEL 

94 

ANGEL 

IOC 

angel 

1)1 

ANGEL 

It) 2 

ANG e l 

103 

ANGEL 

104 

ANGFL 

13? 

ANGEL 

106 

ANftfL 

107 

ANGEL 

168 

ANC-FL 

199 

angel 

no 

ANGEL 

111 

ANGEL 

112 

ANGEL 

113 

ANGEL 

114 

ang*l 

115 

ANGEL 

116 
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UlHt-'HHO tXO#tO#UO»*iTj ANGEL 

GA*EL*OUAO( XO.AO.GANQ.X.T) ANGEL 

*FTU*M ANGEL 

3*9 C OHTT HUE ANCEt 

IF im*€2 .LT. O.Jl GO To 35) ‘*5*1 

IF (MM|*T, JJ-ll .CT. X) GO TO 5 OG ANGEL 

jj*jj.i angel 

IF f J J .LF, N I GO TO 349 ANGEL 

f ANGEL 

c nn W N*T*EA« POUNDA*T CUTS OlJ ADA U ATEPAl CONTAINING POINT ANGEL 

C ANGEL 

IF »XAMIST*1* JJ-ll .LT. »ST«TST*in GO TO 46C ANG*t 

K<J(4I*MFMSTM»JJ-1) ANGEL 

OQIAt-RPFlISTPl, JJ-ll ANGEL 

ElOtAt»5L , F(IST*l. JJ-ll ANGEL 

GA-QUI *G4NpM IST*i. jj-lt ANGEL 

Al) IF trtr .GT. NSTt GO TO 47) ANGEL 

*0(11 •T4MI ST*l, JJI ANGEL 

*0(lt«**F(tSTPl, JJt ANGEL 

FI Otll»EL* c (IST4l»JJI ANGEL 

GA-Om-GANAFM$T*l.JJt ANG?l 

43. IF I MF 1 1 ST , J J-J ) . L T . «S T{ I ST-1, 1 1 1 GO TC 490 ANGEL 

Ml 3t***FIIST»JJ-ll ANGEL 

*<5| 31 •***(! ST, JJ-ll ANGEL 

f L0(4|.*l*FUST. JJ-ll ANGEL 

Gano(3I-GAN4F(IST»JJ-1) ANfeL 

*50 ns-NAFIISTMI ANGEL 

»o( ?i . xpfuST.ns » angel 

• 0(*».»*fhst,nsi angel 

ELOm«fL«'M$T»NSI ANC«l 

G|«o(?I-GA'*9MTST»‘IS) angel 

SlLINF.'>UA0<*0 # *0,El 0,1, Y| ANGEL 

GANEl«OlUOt VO. AQ. GANQ.Xi Yl ANG«L 

RETURN ANGEL 

460 XQI4I •*SN*I J) ANGFL 

*0l4)*MM«t Jt ANGEL 

e L0l4HEl ANGEL 

G A HQ ( 4 I ■ ANG ANGEL 

G.« TO 4!P ANGEL 

* 7J Mlll-MLOT angel 

Gill PSmki I IQ tltpVQLl I ,GA *0( 11 , ElOt 1 1 1 ANGFL 

GO TO 43C ANG*l 

490 «OI»l*«T(MM»ll ANGEl 

gall asmich iom»Ao< jj.GANom.ELom i angel 

GO M 450 ANG*L 

r ANGEL 

c QIIAOA U AT*t AL CONTAINING POINT IS AE c lExT" e ANGC L 

C ANGEL 

5C. JJ«JJ-i ANG«l 

S l 0P e * | f-t A * ( 1ST. JJ-ll I /LI-X4F LIST, JJ-: tl ANG* L 

'I nPEl.|*4F(IST*l,J J-ll-ABFU'T. JJ-.ll ANG«l 

• /mF(HTAliJJ*il-lAF|ISTfJj-!|l ANGEL 

TF (SLG*E1 .LT. U1UI GO TO SCC ANGEL 

Stn*E2«UAF 1 1ST, JJI -ASM I ST. JJ-i» I /IMF LIST, J J| *XPM 1ST , JJ-1 1 t ANGEL 

T* fSL1*f? .GT. SLOE** GO TO 5fl AngFL 

GO T" a;o ANGEL 

C ANGCl 

C *01 NT IS CLOSE TO SMOCK - NEE7 VALUES ON ahOCK A NG*L 

C ANGEL 

f *3 *Otll-MF(MT*l» JJI angel 

* All KKMKIL TQtlt.AQLl J.GANOllI.ELOnn ANGEL 

U"»E»l»Olll-TI/inilHl ANGFL 

UOMMl'IllMAFIIST.JJIIMnm-MFIfAT.JII I ang?l 

IF (SL0**2 .LT. SLO*E> GO TO 39* ANGEL 

• 4J T0(*UISM«|JI ANGEL 

*0(41 «TSMK| Jl AN«5L 

cl 0 I* l“EL ANGFL 

GA-OIAI-AM ANG«l 

GO T" 360 ANG'l 

5 69 *0I1I**ST(TST-1,U ANGEL 

CALL KSnaK lOm.lOOl.CANOO) ,EL0I3M ANGEL 

«0 TO JPC ANp-L 

■ *0 N 1«N* A»G-C'. 

60 GnNTINIlE AN C*t 

C ANGEl 

C **06* A N SMOULO NEVER I E ACM THIS CONOITION ANGEl 

C ANG«l 

W* TTE (b» 101CI ANGEl 

STO* AN6EL 

irO FO*OAT(1M1, 1QX, 14HE*»0R IN ANG ELF/5 X, ANGEL 

• 35H»*0*A*LE CAUSE - X*LQT IS TOO LAtGEt ANGEL 

END ANGFL 


SU**0*JTINF PCONP 
C 

C THIS SUN#"UT!NE CALCULATES THE COMPONENTS « THE NAGNETtC FIELD 
C PARALLEL. *E**ENOICULA* AND NO#NAL TO THE e nw, 

c 

GONPOM ZimuNDS/ XAOO(100),YKQO(1001»XSHKI103lfTSHKtljC> » 

* N*N4* ,N*H AX, 4HACH, GANNA. MRO.NHI*r» 

CONNON /flow/ XCI20,10Q)»YC(23,lOLl.V c t2r,13‘)l,RHOF(2L,lGCt 
LEVEl 2, ** AAA. **Et*» SNG**N,*NAG, KANG 

COMMON /PG n NPS/ AFAAAI2G. 10CI,*PEAF{23, 130, "NOANtZC, 10CI, 

* PNiGl 20,1 001. PANG (2 0, 1001 

LOGICAL lPEAUN,l*KFl,LPAST»LP*CON,t*»*,LPLOT,l.TBAJ,LAST«T 
r ON non / ppnpl / IAEAUN,LPPFI,LP*ST»1*ACON,LP3*,LPLOT,IT*AJ,LASTKT 

conuhn /pin/ angp»angn.«pcon,rcon(29I 
0 1 nRNS I pN SI 100,6 1. H( 1001, im.XlSCIlCC t.nS9tl.?l 
«ata wnoo*i.bP 
c 

C CALCULATE PE*PENOICULAA FIELD LINES 

C 

* F |F4Gn«.E0.t .AND, .N"T.l*RI .AND. .NHT.LTP a 1 1 A ; T' J A N 
CALL PS Tf P 

CALL PEIGA* 

c 

C CALC'LATf A/AINF AND EL/FLlNf AT EACH G A t D *OTNT, TM=N SMOOTH 

C ALONG rriNSTANT-t LINES, USING FIFTH 0*0F* L E A* T SQUARE? FIT 

f 

n*N»n*«» J)f»l 
NXN.NMAX-l 

1^ ••I.NXNAX 

*Nnt«*(NR«AI, J}-A*INF(N#HAX, Jl 
CALL ANG. ELI ElLINF.SlCPrl.N*-4<, J) 

•*«»*IN*NA».JI«rillNF 
• ANGINRHAV, Jt*Sl"P£L 

0** 10 T«2»NRN 
««NP*"(T, JI.RRlNFf I, J) 

'•ALL AN«EI IEUINF,UnPtl,I. Jl 
•*FA>(T, Jt-ELLINF 

* ANr,f t, J l.SLOPEL 

U '•ONTTNUF 

»L«o»\M0.0 
0« 6v 1-2, NAN 
o* 2v 1*1 , nx« 

XL«Of J*I»*I150I JI*SO»THYfCT, J*1»-YCU* J»l**2 

* ♦IXCII. J*lt-Xf IT. Jll **2t 
2- CONTTnUF 

nn *: j-l,NX«*AX 
USOI JI>NP|P*lt, Jl 
4. Gn^rlWlC 

GALL H?O c V|NVNAV,9 f »l < 0 . TL S 0 , w, l : r , A, A, IF* I 
OO 5C J>1,NXNA« 

GA.TLSQI Jl 

* * 5 * * l|,J)*II I (»(6l*XA»A(Jt t*<A*A(*l |*f A ♦ A ( 3 | )*<A»A(2t) *XA#Alll 
* GONTM'iF 

6*, GGNTI^Ij' 

r 

C '•ALCmlaTE CONRDneNTS OF " IGNfTT t F !EL r ' - •mUH, P «** IN PI CUl AA , 

r i no n<3#**l TO OIRtCTTON «10W 

C 

00 7 ^ J-l.NVNAY 
•»>»A(1, JW VM1, JI-BHHM1, jl 
0" 70 r-2,NRNAX 
**A*A(t, Jt.VFfl, J|*PH0'(I, Jl 
*PF*PC», J1**PFRP( I, J) ••MIJFII, Jt 
*NORN|», j|. ANOAHI I, Jt**HOF(! ,Jt 
7J CONTInu= 

C 

* * TU*N 
End 


5 C 0 NP 

KCONP 

5 C 0 NP 

PCONA 

PC ON* 

POUNDS 

POUNDS 

FL ON 

BCONPS 

PCQNPS 

PCONPS 

PPOPT 

PtO*T 

PIN 

pGflNP 

PCo*p 

•C 0 * p 

PCONP 
PC ON* 
•CON* 
PC ON • 
PCONP 
PC ON P 
%C"NP 
PCf»N* 
PCNNP 
PCONP 
PCONP 
PCONP 

•C 0 “* 

•CON* 

PCON* 

PCONP 

•CONP 

•CO"* 

PCONP 

PCONP 

PCONP 

PCONP 

■ CnNP 
PCONP 
PCONP 
•CONP 
•CONP 
PCONP 
PCONP 
•CONP 
PCONP 
PCONP 
PCONP 

ptpnp 
•C ON* 
PGONP 
PCONP 
*CG»n» 

•CONP 
PCONP 
•CONP 
PCONP 
•CONP 
PCGINP 
PCON* 
•G ONP 
•CON* 
•CONP 
PCONP 
PC 0 "p 


S"n RTJTI NE PELGAN PELG.AN 2 

LEVEL 2,Nl,P|f,XAF f MF,tl*F,6AMt • V AL 2 

GpNNn H /AVAL / ••.NpFI5H.XBF{51,lcC»,*PFCf J,lC3t»EL* c (f 1.1091. PVAL P 

• GANACf5i, loot PV AL 4 

fnNNDN /OnSTPN/ 2PLOT»N7END»NTA09,NtPLr)T DNSTRN 2 

LEVEL 9 , r«T,TST»Nt|NST,NST S T*F A" 2 

conn^n /STREAM/ XSTI 5C a »152l • YST(5i.-, 152 1 .HUNS T 15 01 ,NST stream n 

CONNON /SMOCKS/ DPS0Xfli3 I.0STI33) SMOCKS 2 

DATA *T0N2 /l. 5707961327/ PElGAN 7 

C PELGA" • 
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c mu SUBROUTINE CALCULATES mt NAGNITUOF AND nitt^TISN OF 

r EL/EUnF AT THE POINTS tHE»E Tm* STREAMLINES TNTERSECT THF 

C • A r *E TI t FIELD LINES WHICH ARE RE R MHOt TUI !■ TO TM£ FLOW 

C IH e®=ESTRc»H 

>'STm-r,5/rsTii*i» 

*0 n »-2.NST 

•>sTMi-:,i/crsrfi*ii-YSTf|.i,in 
11 f nwT I hue 
r 

C * FT ARRAYS TO FREE STREIN V*LU*N 

C 

HSTRJ.HST*! 

1*F-| V.\*r( u 

DO 30 ?*l*HST*l 

if CH1c(n .IT. J«F<*4XI GO TO 

)«F»*V.NRE( I* 

3) rf^TlNU* 

*>n I j.u J" e “*x 
2 T-l.NSTFl 
I 1-1.1 

ga*bf II. J)-R!on? 
i . cn*»rin»tF 

c 

f v»i«ir- AL"NG F TE^rj lines C^SS SH r G* 

•'O uc j-3.n* 

Tc (J • 6T, NRFUM GO to 100 

01- *1*M (YNFt?, J)-«"F (1. J))**2*RBF(2, J|**2)*».0 
F1RF(2* 1l«m*0ST(ll 

Gi«l*RTP9? 

'»F2-M«(3.J>-ltRFt2, j) 

12-SDtT(n*2*DX2*0R2R092l 
ga* 2« iTiN(o»2/ni»| 

H"*t 2 * j).o;* 02 /( 0 i* 02 )*<nsmi* 0 $Tun 
ftAM*f( ?# j,.,r**,i*f)2*C4*<2 *01)/ (01*02) 

'!•) T" 140 
l'J cf*HTIhm« 

0»*5O*T» (*HF(2, Jl-IBFC*, J-l 1 1**2* t F •*( 2 . J )-R«*( J- 1) ) • *2) •*. 0 

DV?.T*F(3, j I-XNM2. ji 
n*?.l»NS| 3 , j I-RRFI2, Jt 
r '2-S'>«Tin*2*r>F ? *nR2*0R?i 
PA-2-4TAHIDR2 /0I2) 

«l •*!!. J)-( ELRF(2,J-i )*01*DSTt 2 M*D2/I 01*1)2) 

•**•* (2, j»- (0i*G*N2*i2*PA*BFt2# j-n uni**?) 

140 rPNTIHiie 

<>n m io.nst 

n •m 

'tA*l-'*,A h? 

TF l«B*(t*l,j| .LJ. V ST ( I f 1 1 1 to TO 12C 
0R2*»%FtI*l , J ).y»F( I, Jt 
n»2-»RF( I 41 , J)-MF< I, J) 

^2>Ta«TtDR!«DR2*D*E*0*2l 

Fl»e|f, t) 01*02/(01 *02)* (PST tT-l)*OSTM 1 1 
n«H 2 > 4 T 4 N( 0 V 2 F 0 I 21 

GA»R*Ht JI- (<4Hl«02«eAN2*ri t FI "1*02 I 
Hi, TDNTTN'I* 

121 *SH-MF(I*1*J1 

'ALL •fh«h XSh.RSH.PAHSH. EL ^ H) 

DX?-XSH-X*F(I,J) 

097 -• SH-RBF (I. J ) 

U2-So»T(OX2 *dx2«dR2*DR2)*2.0 

5LRF(t. J 1 • n 1* (0ST(I-1 »*02*fLSHI #(01*0?) 

4iMF(I|jlt| r *2*f4Hi^ni*qiPSHW (01*02) 

1!> COnttnuf 

j»F-*».N*F( J ) 

C 

C VALUES ALOHC FIELO LINES WHICH End *f n"WNSTRElN sn^f*llY 

N* 1 • N ■ ♦ 1 

"0 1®J J-N8 1, JNFNAX 

T e (.« *GT, MF ( 1) | 60 TO 15. 

01* SORT I (MFC 2, JI-MF ( 1, J ) I **2«Mt ( 2. J) • •») *2,1 
*IR«H* J>Ol*0ST(l) 

GAH1-FT0N? 

"*?*V8F<3.J )-t8F(2, J) 

D»?-*4Cf 3 , j J| 

02- SO*T(OX2*ni2*OR»*DR2 ) 

«AN?. »TAN|042 /0F2 | 

El"F( 2 » J I 01*02 MU *02 1 *(DS TIE l* 9 ST<lll 
GAM* (?, J) - (GAN 1 * 02 *CAN 2 *P 1 ) / ( 01 * 02 ) 
on to lF-e 

IS. n l*S0*TI(lM(2,j|*nF(2iMU**Z«(i<F(2tJ)-MF(2fMn«*;|*2 l 0 


■ELGIN 

9 

■ELGIN 

lr 

• ELGIN 

n 

•ELGIN 

12 

•ELGIN 

1% 

RELGai 

14 

•ELGIN 

15 

•ELGIN 

16 

•ELGIN 

IT 

■ELGIN 

1" 

•ELGIN 

19 

•ELGA* 

2C 

•ELGIN 

M 

•«lgan 

22 

■ELGIN 

23 

•ELGIN 

24 

•ELGIN 

25 

"ELGIN 

26 

■El 6*N 

27 

■ELGIN 

?• 

»EIG*“ 

2« 

•EL«*n 

3f 

•ELGIN 

31 

•ELGIN 

• ? 

•ELGIN 

3? 

•ELGIN 

3* 

•ELGIN 

35 

•ELGIN 

36 

• ELGIN 

77 

•ELGIN 

3 • 

•ELGIN 

39 

•ELGAN 

4C 

•flgan 

41 

•ELGIN 

4? 

N*l G AN 

*3 

•ELGIN 

44 

•ELGan 

4 f 

■Elgin 

46 

•ELGIN 

47 

■•LGAN 

4- 

•ELGIN 

40 

■ELGAN 

ND 

•ELGIN 

5 1 

•Elga- 

•2 

•ELGa- 

53 

•ELGan 

54 

•ELGA* 

55 

•EL6IN 

56 

•ELGIN 

57 

•ELGIN 

58 

• EtGAN 

50 

"ELGIN 

• r* 

•ELGIN 

6! 

•RIGAN 

5? 

•El G *n 

63 

•*IG|n 

64 

■ELGIN 

55 

■ELGIN 

66 

•ELGIN 

67 

•6 LG I* 

6 ■ 

•ELGIN 

50 

•ELGIN 

7' 

•ELGIN 

71 

•ELGIN 

72 

•ELGIN 

73 

•ELGIN 

74 

•EL«AN 

7« 

•ELGIN 

76 

•EIG*n 

77 

•Elgin 

78 

•ELGIN 

TO 

•Elgin 

BO 

BELGin 

• 1 

•ELGIN 

■ 2 

■ELGIN 

53 

•ELGin 

84 

■ELGIN 

■ 5 

•ELGIN 

• 6 

■ELGIN 

N7 

■ELGAN 

• 8 

■ELGIN 

80 

•ELGIN 

9C 

■ELGIN 

91 

•FLGIN 

92 


DX2-lM(3,J )-X6F ( 2* J I 
nR2-*4F(3.J)-MF<7, j) 

02- SORT (0X2 *OI2*0«2 *0*2) 

6 ** 2 - 4 TAN( 0 R 2 /D« 2 ) 

ELR e (?tJ)«l ELBF( 2 »J- 1 I * 01 * 05 TI 2 I) * 02 /( 01*02 1 
GAM** (2, J) - (Dl*GAR2«n2*GA*RF(2 f j-m F(01*ft2) 

16 J '“ONTIN'IE 

00 1 T 3 T- 3 . NST 

|F (HRF(IM) *LT. j) 60 TO 1 *J 
01-02 
G 4 **l* 6 A -2 

H2-1BF» I*l,J)-XNFl I, J) 
nR7-8SP ( I, j) 

n?.S0RT(riV2*0X2*OR2*DR2) 

c l OF (I, J)-01*02/(01*D2)*(0ST(l-ii*psTU)| 
GAN2-»T»N(OR2/OX2) 

GAHRC(t,J)-(6AN 1*02*6402 *01)/ (01* 02) 

1TJ PPNTIHHE 
lFj C^NTIHiJC 

El l-Oi*r>si( 1-2 | 

rL2*0>*DST( 1-1) 

01-01*2.0*02 

V-''? 

ELSFf I, 1 )-( FLl* 0 ?*EL 2 * 01 )/( 01 * 02 ) 

j). (FA- 1 * 02 * 64 * 2 * 01 ) /( 01 * 02 ) 

TF ('‘.IHftF(T,j) ,lt. 0 .^) PAHftc ( f » J ) ■ > . .< 

2*i C^hTIHUT 

c 

^ ETT***rillTe ALONG STREAMLINES to list grim line 

CALL S ,l, ki( 2 *L 0 TfTl #6401 .ELI) 

On 2 " * T * 3 » NS T*l 

»'*NRF (I ) 

‘'hmm.hijhst( i-i> 

TF (VA C (T,N- 4 ) ,lt. XSTU- 1 , 1 )) 6(1 TO * 2 ' 

e*r .< ?o( m-HF(T,N-H )/(VAF(t,N)-XBF(T v N-i)) 

»*F(I,n*1)-fst(I-I,humh) 

R*F ( T#«*l )• YST( I-l» NUM-) 

FI RFJ T.N*1) -f AC**L 8F ( I»N)*( 1,5 -FAC I *!L*F( i.N-1) 
A“*F f t.H*I )-FAC*GA-2F( I,N)*( l.C-FACt *GIm*c ( T *H-1 ) 
*f (^FA-*F(IpH*l) .LT, 0 . 3 ) GAHRFI I»H* 1 ) -O.p 

t ;*t 

Tn 

22 ) » 0 F tl.H*] ).rST(I-l, MUCH) 

T*F(I,N*; )• XST( I-l» NUHH) 

C»r.(Y 1 -» 4 f ( (, N . 1 ), /(T 1 -RRF( U .Hi*! )) 
FfF(l.N*;|. 6 iRFm # N:*ll*FAC*ll.i,-FA r )*FL! 
n.AN 4 FU,w*l). 6 AHRe( U # H 1 * 1 ) *FAr*( 1 . 0 -C A*") •<“**! 

*F (*Ah*f| I p n* 1 ) .LT. J.t) 6 Anrc( i . n* 1 ) -O.n 
2 Cw C (IN TT H‘<* 

R r Tito H 

F NR 


RELGAH *3 
**1(540 *4 

■ELGIN «■ 
RELG4N 9f 
R6LG4N *7 
OELCAN 98 
■ELG4N 99 
RELC4N 100 
■ELGAS 101 
REL64N 102 
REIGAn 101 
■ELGAN 104 
REIGAN 135 
•■LGAN 1*6 
■ELGIN 107 
■ELGIN 10" 
RELGIN 119 
RELGIN 111. 
8ELG4N 1U 
■ELGIN 11? 
■ELGIN 113 
■EIGI- 114 
•ELGIN HR 
•ELGIN ii 6 
"ELGIN H V 
■ELGIN 118 
•ELGIN ii« 
•ELGIN i?f 
•ELGIN 121 

•ELGIN 122 
■ELGIN 123 
•ELGIN l?4 
•ELGIN l?5 
•FLGIN 1*6 
■ELGIN 1? 7 
•ELGIN 12* 
•ELGIN 120 
■ELGIN iso 
■ELGIN 131 
BELGAN 132 

■EtGAN 133 
BELGIN 134 
•EtGIN 13- 
"ELGIN 136 
•ELGIN 137 
•ELGIN 13N 
•ELGIN 139 
•ELGAN 14C 
•ELG4“ 1M 
•ELGIN 142 
•ELGIN 143 
BELGIN 144 
•ELGIN !* 5 


St'PQnijTlHf *r)||i40 

C 

C rw I 5 RO»JTTH£ DRAWS IND LIBELS SHOCK VI»'E IK) 

r “ir,NFTDS*HERE or inNp*PHPF E b^UND i R Y » 

( MCr *LOT SUBROUTINES USEN are 

G VECTOR. CHIR.PDLIR, 

C 

cnhNOH /ROtJNOS / VRQOUOC »#V«Q1 HIM, VSHK IK )), »SHK C 1D( ) , 

* HR-|»,NX-AX,A-ACH,GANNA,HRn,NHlNO< 

'-D-NMN /SCALE/ XSF, VSF, XNAX.TN AX, XtHG*H,VtHGTM 
niNESSICN 9 (21), 4(21) 
mtnEhS t PN L IN nG ( 2 ) 

nil* LINNCr 1) ,L ANNGI2), L**I n /lCHNAGHET0R|'.1, 2MSf» 9HI0HTR AUSF/ 
n»Tl H*SH/l3HSMnCK WIVE/ 

NIT* * /■■,,, 15 7JP, . 314 U,.4T124,, 62832,. 78 ‘4N, 

I . 942 4"* 1. *995 6. 1.25464. 1.413 7 2. !.ST( NO. 

7 1.72758. I, B84°6,2.C.4204.2.I99H»?. 35619, 

3 2.51327,2.67035.2.82743.2.98451.3.141 59/ 

OITl R/?l*0.l / 

OITA N*/21/ 

C 

r DRAW ASH LIBEL ROOT BOUNDARY. 

( 

fUl VECTOR (XBOO.T* 00 »NXN|X#t,o,LH ) 

*LA«L— 1.0*1. O/FSF 
TLABL -1.6 

IF (NHTNOI ,£0.1) GO Tn 5 


• TNI 7 

BOUND 3 

■DUND 4 

Rot 11 N 5 

■DUNG 6 

BOUND 7 

■OUND • 

•DMNDS 2 

• mjNDS 3 

♦TIL* 2 

bound 11 

BOUND 12 

■OUND »J 

•OUND 14 

•DUND 15 

BOUND 16 

•DUND 17 

BOUND \F 

•OUND 19 

Bound ** 

• mtND ?1 

•OUND >7 

■ O'lND *3 

ROUND 24 

■ OIJN0 25 

•OUND 26 

■nuND 27 
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rui CMA»(x14BL»TLAH»J.h».12»LAA'm:,12I 
r □ to u 
c 

f TPNfJ»AUSE “ ADD Hto TO U«El 

r 

3 CALL CMAtfiLAgi* YLA AL.O.O, .12* I MtO# <»l 

rr H .r**f-j. 3/TSf 

CALL '*HAmxtM,YCH,:>.C..2,3MM/#*3t 
'ALL DMA® f X CH*,fc/TS F» YCH, 0 .0, « 0 73 » 1 HO , 1 1 
CALL CMA®|XCM4.?5/XSF»rCH»0. J, .2#1M.,11 
call NU>*PLTUeH*l./fSF»TCM,&.3,.2,M#0.2» 

c 

C **AW AND LABEL SHOCK HAVE. 

C 

13 rnwTtN'Jc 

'ALL VECTOTIXSMKiYSMK.NX-AX.l.C.lH » 

l,y-l.e/»S« 

UAM.1,4 

CUL CM»A«XLAAL*VLAn#C^,.;2.tASSM,lO) 

c 

C n*AV |Mf) LABEL PIANFT f"* N4GNFT0S PMFP* 
f 

I* (nhtmov *:Q. 1» tETU»N 

*■•11 »dl a«I*,a*np,i.c»1m »-pn4**1.I 

CHI CHAB(.l,.r.8,3.0,.12»6MPLAMET*M 

r 

• STIIOH 

.-*»n 


SUAPO'JTfNP bout 

c 

C THIS SUBROUTINE PRINTS R'JT IMS MCKETI 1 * *1*10 

r 

COMMON /MMf ANGP # ANGN,K9C0N, 9C HNf 2 ‘J 

/ONSTbm/ 7PLOT#H?tNO»H!lD’)#Hxi»LOT 
LEVEL 2, 4NG,0XTH,DEC 
* DM MO s /P #0/ AHGI22»;vC ,l,n*« 

LEVEL *, BPA'A.BPFip* BNORH. 9N4P, • AND 

Crt-HON /BCOHPS/ A®A» A 129, *3J) * 5 * = *P ll' * 1 2 . 1 * «md#n( >o» i r ■> | , 

• •NAGrZD»lt.}|,-AN'-,<2t »1>C » 

roi-TA / ALU NT / THETA(23),PPtZ J ;.251,'mHNT 

con-on /bounds / » B ooaoDi,YPnnuo3i,*^HKi!r3»,vsHKCj«f i* 

• N»MAV,NXNAX,4MACH.GANKA,M#n#NNINOX 

^"-nN /FLOW/ XCI23.10J1, VCf2>»U< I.VM**, W* )* flMOFtZ' * llil > 

r 

S4NGP.K JNUMfiPl 
C AHP>»:nK( AWGP) 

S AHGN.S (NtANGNt 
Pi**rw«ros( ANr.Ni 

writ* if, 10*1 
C 

C PRINT MAGNETIC * I fc L »■* F^P *DS: »TGT"S 
C 

DO 10 J • 1 » N ■LUNT 
f F INMTNOI .EQ. 1) GO TO 3 
w® T T F If * 11 ) I J»TM=TAIJ) 
p.n To * 

3 wbTTMa,115) J,TMetAU) 

5 r «l 

WP TT?(4,12„ ) Tf >P(f • J)t APAPAIf* J1 
"" T- W»m#mat 
Ai«SANr,P*«PE*p( i f ji 

• 2-C*mp,p.M ABK I, J1 

e l -COSI ANGl I* J1 l*A2»eOSIAAN‘; IT* ill *11 
ANSI!, J 11*32*5 INI AANGH, J I 1*31 

■ANG»*AVAN2f C Z»*1I*0FG 

* *.F* *C A NGN 

ANfiN 

|J»IT»AU» 

w* I T e I»*P(t»JI,KPA>Af I»JI,9Pr*»(T. Jl.BNAGI T»JI,AINr,P, 

• ANRAHI I# J 1, Af#BY, AT 

:> Continue 

c 

C POINT MAGNETIC FIUR OOVNSTPf AH 

C 

NY 1 ■ NAL UNT* 1 
An 2 a J-N»l»NINi» 

JY* j-nalunt 
Y*-I<M1. j) 


BOON A 28 

BOUND 29 

BOUND SC 

BOUND 31 

BOUND 32 

BOUND IS 

BOUND 3* 

BOUND 39 

■OUND 36 

BOUND 37 

BOUND 3 A 

BOUND 30 

BOUND AO 

BOUND 41 

AQUND A 2 

•OUND 4 3 

BOUND 44 

BOUND 49 

BOUND 46 

•OUND 47 

BOUND 49 

AOUND 40 

AOUND 30 

90**1 D 3! 

ADUND 52 

AO'jNO 3 3 

•OUND 94 

BOUND 59 

AOtIND «f 

•DUND 37 


AOUT 9 

BOUY 1 

•OUT * 

•OUT f 

•IN 2 

an s to n ? 

DAP 7 

P»p * 

• COMPS » 

• C^PS 3 

•L'JNT 7 

■OUNOS 2 

POUNDS 3 

FLOW 9 

• TJT 13 

AQ«»Y 1 4 

AOUT 1* 

■ OUT It 

•OUT 1 7 

•OUT If 

■OUT 1« 

AOUT 2f 

A OUT »1 

•OUT *2 

•OUT 23 

•OUT 24 

• OUT 2 5 

•OUT 26 

A0" T 27 

AnuT 2e 

•OUT *g 

AQIJT 3r 

•OUT 31 

•OUT 32 

•OUT 33 

•OUT 34 

•OUT 3* 

ADUT 

AO'JT 3 7 

AOUT !• 

AOUT 39 

•OUT 40 

BOUT 41 

AOUT 42 

BOUT 4 A 

BOUT 44 

BOUT 4« 

BOUT 46 

■OUT 47 

BOUT 4 B 


TF INHINDX .EO. 11 60 TO 13 
WATTE (6* 13'^ 1 JZ»2 
60 TO 15 

13 W»tTE(6,133> JZ* 2 
13 1*1 

WPITr (6» 12 3.1 ItTCU.JWBPABAU, J| 

DO 20 T«2» N AN A Y 
Bl« 5 AN6PPBP EA ■ ( I > J | 

42-CANG»*APAAA(1, Jl 

ei-CnS(ANGCT# J)1*B2«CQS(BAN6(T.1M#91 

•2>STN(AN6I t.J)|AB2ASIN(BAN6(t. JIIMl 

BNAGII#JI-S0BT|F1*F14P2PF2I 

bang* • AT AN2 i b 2»fiipdec 

•»«F3Pf ANCN 

BV.P2*paNRN 

■ 7>BN09MU> J)*$ANGN 

WAITE 16.1201 tfTCt I, Jl.PPAAAl I,J1,BPEAP( T. J1#«NAG1I. J1»*ANGP» 

• •NDA«U»jl > 6X»BT # 9Z 
2» rONTINUF 

A E TUAN 

C 

lto TPANATf;M;//52Y»25HNA6NFTIC Ff?tD CO-POINTS t‘7 «>25(IM*I /» 

113 KflPNAT I / /21 H ANGUL A • LOCATTON N0..T2.12H, AT T^tTA -ifP.4. 

• AH DEr.pfPS// 

• 4»» lNT,6f,4HAP#9.ei,2<6HP/BINP»6>ft.frMB/AINF. a Y»7MA-AN6LF.5*» 

• 7H A/A|NP,5X.THB* A*1NF»***7HAY/BINF.5»»7«AY#AINF/ 

• ZlT.lDHtPAAALLEll *4Y.6M*pFAp|,4Y#2(10Nf TN-PI A Nf 1*2*1# IT* 

• AMI NO# HAL*. lY,3(lY»llN(AET'JUTANTm 

115 e r»*»AT»//21H ANGOLA A LOCATION NO.,X2,12M* tT TH?TA •* FA ,4* 

• AN DEGAFFS// 

• 4T,lMT,6».5M#P7AJ.7*.2lfeHPF3TNF,6Y1.6M9/AtNC,5»,7HB-4MGlS»31f* 

• 7M A/AINF,3I*7HAY /8INF»;v#74AY/AINc*f 1, 7HA ▼ /A I*IC / 

• 21V,lCH<P4RAlieLl»4X»6M(PEAPl*4X»2Ul > W(IN~PLANE|,2<| t lY, 

• PHCN1»-AL»#1Y,3U*.11H( AfSULTANTin 
12.. FOA-AT(I5#or2r»Fij,4ll 

1 3 J F 0 AN 4 Tf// 3 VM ADDITTONAL AMAL LOCAUdn N 0 ..I»*I^M, AT t tf) -»F *,4 It 

• AY*lMT,7Y*3MA/0»9*»2C6HB/BtNF»6Yl*4M*f4tMP#«*#7HB-ANGLF»5Y* 

• 7M a/ainf#5Y#7HAY/BINF,5Y.7NAT/MNF,3».TMA*/dimff 

• 21Y.10H(*4»ALieLl»4<#tM(PFA») t AX,2ir‘M( T N- * t A N? 1 # 2 < 1 # IT, 

• AMINDQA4L 1, 1*.3C1*,11M(PESULTANT)»» 

133 eOAD*TC F/30N ADDITIONAL A»IIL LOCATION WD.*l**im, 4 T »/Br •* F A « 4 F 

• 4*,1MT,7T#4H#/a:* 7X,2f 6M8 /AImf,6TI,6wp/AINF,5*,7MA-amGL?.5*» 

• 7M A/*rNF,5X.7HAK/»IN**5X»7M«YFBINF,5X»7HAT/«INFF 

• ?:y.:omIP AAA llEll»4X.6H(PEAP)*4X # 2tlCHl ts-*l» N' 1 » 2X » , IT, 

• ««( N<1»»AL l.ix,3f 1 Y,llM| AESUL’ANTm 
END 


«!|P*nilTTNT ASMKl |X,A#4NR#U» 

c 

C T4?s S'"»ADUTINE CALCULATES T HE N4GnIT*«Df AMI D T *E r TI ON OF 

C EL/EL iwc at the shock, and tm« a-locatton, dtvfn The 

C *-t OP ATTPN O e T M E POINT 

C 

C"““ON Mn-lNDS/ XAODUu,. l.YBODUOl )*XSMK|lD11,rSMK (luf 1 , 

* N9K4T,N»K AX, AHACM.CAKDA,HPP,NHlw r T 

»*q.NnN /SMOCKS/ DPSDXPiO ), DSTI5C 1 

DO 1 C J« 1 ,N»AAX 
IF ( y # LT. XSMKUll GO TO 2G 
2) V'NTTN'ic 

J .NX 1 * AY 

2> P.YSMKf J-il «| X-XSMK I J-: 1 1*1 YSMK< Jl-YSHK (J-* l 1 / 1 XSHk I J I- XSM* ( J-l 11 
TMFT1«*TAN( DA SOX I J-il 1 
THET2»ATfN(0ASDX(i1 1 

THET.TM-Ti*|X-x?HKl j -11 1«(TheT 2*TMCT1I / (YSM<f Jl-XSHK! Mil 

c 

C CALCULATF AAGNITIIO! OF VfATICAL FIELD CON PflN* NT OF SMOCK 

C 

•2“Sf Nf t met 1 * *2 

F"2 "A ■aCm**2 

gA**2««G» N"Aa1.0I*).!*En2 

nD2.:.'-(EN2*S2-l,:t*(DAH>*A*EA7*S2Pl.3t/tGI17P*2*S21 

DD.SDPTIPD2 ) 

rnTM.l.O/TANITHETl 

TD.«A**2/t r“2PS2-l.3 t-l.P 

DEIT.1TAN(C0TM/TD1 

El.SDATI1.0pC0TH*C0TNPIl.CPD02t-2*G*DDP|TDfl.ol*C0TM*SlNIDELTll 

C 

C CALCULATE angle of VEtTtrAl FIELD COBPOn*NT 

c 

ALPHA* AS INI DO*CnTH.SINtTMET-DslTl /ELI 
4NG-TMFT.IL PHA 


A OUT 
BOUT 
BOUT 
BOUT 
BOUT 
BOUT 

• OUT 
BO*IT 

• OUT 
BOUT 
•OUT 
BOUT 
BOUT 
BOUT 
BOUT 
BOUT 
BOUT 
•OUT 
■OUT 

• OUT 
•OUT 
•OUT 
BOUT 

• OUT 

■ OUT 

• OUT 

• OUT 
BOUT 

• OUT 
BOUT 
•OUT 
•OUT 
•OUT 
■OUT 
BOUT 
BOUT 
BOUT 

• OUT 

• OUT 
BOUT 
ADUT 
•OUT 

■ OUT 
AO"* 
AOUT 

• OUT 


»<M»1 

ASMKl 

■SMK1 

■SMK1 

ASMKl 

ASMKl 

AO'INDS 

• 'UJNDS 
SHOCKS 
ASMKl 

• SHK1 
ASMKl 
ASMKl 
ASMKl 

•S MK 1 

ASMKl 

•SHK1 

ASMKl 

ASMKl 

• SMK1 

• S MK 1 
ASMKl 
IUK1 
•SMKl 
BSWK1 
ASMKl 

• SMKl 
•SMKl 
■SMKl 

• SWfi 

• SMKl 

• SMKl 
BS mk 1 
■SMKl 
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•«TU*N 

tun 


SMPPOtJTtNP ASTEP 
C 

C Tqft «*JAROUTIne CALCULATES The VERTICAL FIELO LINES, 

** AY INTEGRATING ALONG * 4 CN S TRE API l NE Tfl LOCATE POSITIONS 

C IT EOUIL TINE TNTFAVUS 

c 

CQnmhh MIUNT/ THET 4 I 25 ),t*( 23,25 l,NU»NT 

r^nnnv /A3UN0?/ 1990(130, YROOUi>0), »S HR (} ‘71 * v Sh»c < nr ), 

• NtH»V,NrMAX,*iX»CH*6ANN*,H#n,HHTNPX 

CniNHn /FL OV# YC< 23 , 163 >,YCr 2 J»lJt,l,VF( 2 ?' 1301 .*HOF( 20 » 1 COI 
CnN-"H /flMSTR-/ TFLQT,N 7 EN r t,HZlDO,MXFLOT 
tEVEt 2 ,NA,NAF, *AF,R»F, EL 6 f*GANA* 

chnnon /aval/ NR,NRF(sn # v*F(j:.,im»tAF( 5 t»i.->i,ciaF(«i,)??t, 

• G»*AF(« 1 , ICC! 

LEVEL ?» XST* Y 5 T,NU*$T,naT 

/STREAM/ XST( 5 C,l} 2 t«YST( 5 ti,i 52 | , N'J*ST( 9 ^), NST 

c 

C SECOno M'll LINE ts TAUTEN! Tfl SHOCX N«S* 

jAF«iy.99 

nA«-IN 1 < 7 PL 0 T* 10 . 0 M 4 , 0 » 3 C.C> 
x?H*T.rf i I 

flt|NF«(VAT| N «T>l)»XSHKEI/(RLOAT(HM-l«« 1 
"ELT-OS INF 
C 

C OALCMUTF where VERTICAL fl*m LINES run s; sy-Mc T#y axis 

on 6 ;" j* 1 »jafna« 

*** 

fctJ ^°NTt *<' 1 ? 

*■*( 1 , 1 1 •XSMVT-OS inf 
»RF n»?»"VSHKZ 
c 

C ASSlJNfi CONSTANT OECT L £* AT IOn AFTWEEN points 

f 

1*2 

tpl o«o, o 

**«NR««M 
V?» V* ( T *, 1 J 

t: » v*. ■ v? 

!*• IR-! 

IF IT« .1*. Cl GO TO 64G 

n T« 9 . 0 *l VCI TR»ll*VC(f««l»in/( v 2 «v;i 

n-< VJ-V 1 » /OT 

T*'Ew»T‘lLO* f )T 

IF (TNLV • G £• OELT 1 on TO 62 ) 

TniO-ThEV 
'•0 To Alt 
62 .. ft T ■ OF L T- T n L 0 

OfLS^VlROTst'* ’*AROT*OT 
J- J *1 

«*M 1 ' 1 >«vCU»*l»lt«nH.' 

T"ltl«TNfH -1 EL T 

6 3 J IF ft • GE • JAFAAXI go Tn 640 
IF (TOLO .LT. OELT) GO Tn file 

vi «v: ♦a*ot 

Of LS«VI*OFL T*r, 5 * 4 *ftFLT **2 

Toio.nt n-iFLT 

OT-OflT 

40*1 

VAFtl, M-TFFC, J-l 1 ♦DELS 
GO To 630 
6 4. CnNTTH'JF 
N4F<J ).j 
T-l 

r 

C CAlCHtlTf WHERE VERTICAL FIELD UNfcS e*os* st«e.,hUNE« 

DO ?or im-i,hst 

T«I"*I 

VAFtT.II-TSHKZ-OSiNF 

RRFII» 1 )*VSTIIN, 1 » 

*"f It,?) -» 5 H<Z 

•■FU*2»*vSTM«#ll 

r 

C LOCATE * 0 !NT 5 REFORF S H 0 CV WAVE 

c 


ASMWl 

35 

• S H(( 1 

36 


AS T* A 

2 

c 

C 

ASTEP 

3 

c 

AST** 

4 


•ST«* 

5 


ASTFP 

6 


•Step 

7 


AL**NT 

2 


•ounos 

2 


POUHOS 

3 


FLOW 

7 


ONFTRA 

2 


•VAL 

2 


»V»L 

7 


AVAL 

A 


STRf AN 

2 


ST**4N 

3 


AST?# 

19 


• S T* P 

15 


AST** 

n 


• STFP 

IT 


*ST** 

i« 


•Step 

19 


• ST** 

20 


■ r tc p 

21 


• ST?* 

?? 


• $ TPP 

23 


•STE* 

Z A 


• ST** 

7f 


• ST** 

2 6 


■ S T*« 

•7 


ASTF* 

2* 


•STF* 

*9 


ASTfp 

3«“ 


•STF* 

15 


• S tfr 

3? 


• S T* P 

1* 


• STE* 

3* 


AST** 

3* 


• S T* • 

36 


AST«p 

37 


*c T;P 

3* 


AST?* 

30 


• STEP 

4" 


• stfo 

4 1 


■STE* 

A? 


• ST?* 

A3 


•ST** 

44 


• STEP 

45 


• *TE P 

46 


AS TC * 

47 


ASTe* 

4* 


•S TC* 

49 


AST** 

5* 


ASTF* 

31 


• A TCP 

52 


AST?* 

5? 


• ST** 

54 


•ST** 

5« 


•STF* 

56 

c 

• STE* 

57 

c 

AST?* 

5* 

c 

■ STEP 

59 

r 

• STEP 

60 

r 

■STfp 

61 

c 

■ STC* 

62 

c 

■STF* 

63 


ASTep 

64 

c 

PST** 

65 


AST?* 

66 


•STM 

67 


• STE* 

65 


AST? p 

69 


• STEP 

7C 


• ST«P 

T1 

c 

ASTEP 

72 

c 

AST?* 

73 

c 

AS t? P 

74 


ASTF* 

75 



on 7L9 1-3, N 8 

TF fT«Mr,J-l)OStNF ,GT. XSTfTN,m GO TO 72C 
»«F|t» Jl-XAFCI, J-ll*OSINF 

• RF (I,J)*YST(IH,1> 

7 1 J CONTINUE 

IflCATf POtHTS WITHIN the MAGNETQ/IONTPMERF 
72J TnLO-(fST«IN,l)-XRFt|,J-l)| 

•STM 

tF H“ ,GF. NALUNTt GO TO PU 
V2«V* INRPAX ,( ) 

GO TO 730 

Pi’ nn j 4 -n»lunt, nx*ax 

TF (XXTtTH.l) ,GT, XC ( N R * AX , J J I ) go TO *2i 
V2-VF{NPHAX,JJ-H*tVF (MRNAT, j JI-VFINR-O, JJ-111 

• •(TTTriM, ll-VCINROAV, JJ_D 1/tVCCNRNAX, JJI^YCfNRPATf JJ-1H 
GO TO 730 

•23 CONTINUE 
73 j Vl-V? 

»1«*STCTN,fST>11 

Tl.TSTITPfKSTPlJ 

V2.VlNTBp (fl#Yl j 

OST«SORTU»ST(IM,KST*:>-XT Tn N, kSTI 1**2 

* ♦lYSTtt p. KSTp1»“YST(In,kSTM**2 ) 

»'T«2,‘;*0?T/ CV1 + V2) 

*•( V»-Vi I /OT 
TSf V.TOLO*DT 

T M TNi-w.GE.oe L T) GO TO 74L 

«f«r*xsT,i 

THL 0“ Tn F w 

TF f«ST ,r,E, NUNSTUN)) ro TO 76* 
f,n to 7sc 

ta: j - j ♦: 

or*nriT-Tni d 

OFLS* Vl*PT*0.5*APOT*0T 

'r*F(T,JI>xST(IN,RSn«0-LS*(XSTfIM,KST«tl-vST(TN,KST)l/OST 
»AF(T,j).rsT( tn»xstudels*( Tsntn,KST*i i-ystua#kst>i /ost 
TPL 0» Tnew-0 EL T 
NST-yft^I 

TF PST ,r-E, nunSTITPM go t r 
7J> *f (j , OF* JRFN*»> r.o TO 7 &a 
IF CTop> .et, OELT! GO to 730 

Vl» V1***0T 

OFt S-VpnfcLTP.y.JPAPOElTPOttT 

**f I T » !!•** F| t, j-u ♦PELRRfVSTC IP»FST»-» sTITN,kST-1 | J/oR T 

• JFCTjJURNFC I, J-1M0ELS*(YSTI I N, K ST I *Y ST f TN » »S T-l H /»>$ j 

TO l o, TfJL D-OFL T 
GO T n t«« 

7 6 J Continue 
NS« ( T I • J 

T F M ,GT. NRF(I-in N4MI».NSF(I-n 
TC J ronT T NU“ 

P c TUP H 
FND 


SO.tOUTTNc AURAL I A, 5, A, * p H!>,NIJA) 

»'SINO A RUaalf TECHNICJi, THIS RQUTINF torts TM£ p£* t 
ARRAY S INTO ASCEnotnq OROE* an) changes 

the o*oer of arrays a ano a in » coap^sponoing 
h*nn»jR» K IS THc NU«*er 0 * 0 AT 4 POINTS to 
RF SOPTEO. 

ytnenston Arn#sm,Am,uAi:» 

TF|V.F0,1» RETURN 

KI-K-] 

on jo<> 

L»I41 

0Q HP J«l,* 

TFCSI JI.SMIMI GO TO 14C 
TNTERCHFNGF arrays 

SIM-SIJI 


AST** 74 

AS Tfp 77 

ASTfP 7P 

ARTE* 7R 

•STEP sr 

AS Tfp PI 

•STEP A 2 

ASTF* At 

AST*! A4 

AS TE* A“ 

ASTJP 

■ S T* * *T 

•S TF p A A 

•STEP aq 

"STEP qp 

■STEP 91 

■STEP 9? 

ASTE» 93 

AST?* 94 

AST?* 9? 

■ STEP Q<i 

■ STEP 97 

•ST?* 9 A 

ASTEP 99 

AST=P 130 

•STEP 101 

"STF* li2 

•STFP 133 

•STEP 1C 4 

■ STFP 1P5 

■STF# 106 

AST?* 107 

•STFP np 

ASTFp IRQ 

AST*# no 

•St** m 

•STEP 112 

ASTFP nt 

AST*# H4 

■ST** L 1 4 

•step u * 

ASTtp 117 

A S T* • 1 1 A 

• S TF * 119 

• S TC P 1 »n 

MT» Ui 

•ST*p l»2 

•STF* 1?3 

•ST«p m 

A S T* P 1 P 5 

• S Tc P 17* 

A* T E* l ? 7 

• STEP t 7 A 

•STE* 1*9 

•ST*p in 

• STE* 131 

•STE* 172 

■STF* 137 


R'l •* L ? 

•UA*L 3 

•U*U A 

At)p* L • 

•U»*L * 

AU«<L 7 

PU*SL • 

AUAAl o 

AUAAL l« 

•-(••l i: 

•U»AL 1? 

AUAAL 1* 

PUAAl 14 

•U*AL 15 

9*1 * • L 16 

AUAAL 17 

•••••I t * 

*U **L 19 

AUAAl 2t- 

9U-AL 21 

AUAAL 2? 
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C 


St J 1»T6 ** 
Ti**-4tn 
itn-it ji 

At Jl-TEPR 
TfNPpRt T1 
MIt«M J1 
8tJl«T£4P 

loi continue 

RETURN 

'NO 


8U*8l 21 

8U*4l 24 

RU88L 29 

8UB8L 26 

8U88L 22 

B'IBBL ?* 

*'J94t 24 

8UML 1C 

8i.»*8t 91 

8(1841 12 

8UB81 13 


hiiproutinb ch£C8UChx#nxy # xod2# j#h#nval#hwi41 

c 

C CONTOUR RROGRApS PA*, w*l«» SSRCH, ENTER# AMP CHECH 

c WRITTEN BY REESE SnBfNSHM* NtSA-APES *E<. CTR,. R’JG. • 1®74. 

C HODtFIED VMSIONI 

C 

C GTV£N THAT A LINE BASSES THROUGH A- INTERVAL UNOER 

C IN V?s TIG AT TON , OUESTIONl IS !T A N?w l INE, 0» tS TT 

C PART QB A LINE Al*EA0Y RECORDED* 

C 

C *004 -1 08# Hf V POINT, 

r 8049 .2 8 AD# OLD POINT, 

f 

OTHENStON I CHH t A # 1 1 
C 

pn 1 l* | # nv V 

tn Knpj.Nf. iCH8ti#Ln po to \ 

TB ( J»NC.|rHK(2#L II CO T 0 I 
TF(H,Ne,KHHt3#lll PO TO 1 
TMNVAL.E0.!CHHt4#l 11 CO TO 2 

1 rflNTTNUS 
Hpf)4«l 
'■-o TO 1 

2 rof>4*2 

3 • | TIJ4 m 
CNP 


CHECH 

CHECH 

C.H«CH 

CHFC8 
CH e CH 
CHEC 8 
CHECH 
CHECH 
CHECH 
CHECH 
CHECH 
CH*CH 
CHECH 
CHTCH 
CHECH 
CHEP8 
CHCCX 
CHfCH 
CHECH 


CHECH 
CHECH 
r Hf *H 
r m«ch 
CHFCH 


2 

3 


6 

7 

4 

4 

1C 

11 

1? 

13 

14 
If 
It 
l T 
1* 
;® 
2^ 
?1 
2? 
2 1 
2* 
?! 
>A 

27 


«!)8tn'|TTN* CONOUT t ACCHT»f ACT, NHINOXt 

c THIS ROUTINE HR I TBS OUT THE CPNTOU* l?NE? «OUN0 •» 

C SUBROUTINE NAP 

C 

rOPNON /TCHcCH/ TCHHt4#13C01 

CCNNON /PIOTC/ CONT*tlO&9»#COHTrnCJ)1,CVAlt3r I ,NA0(3M ,t*LOT 
pihenston A CONT 111 
C 

c vRfTS H* A 1 '! NS FOR THIS SET OB CONTOIS 

C 

NNAV-NAOtl) 

TB(I*tOT,E0.2l PO TO iJ 
I B UPIOT . GT. 41 GO TO IS 
V A T Tf (6 » 400 1 H«AX 
GO T" 2C 

u. WR I T£ If , 500 1 N-AI 
PO TO 2; 

15 T B (TPIOT.EO. 51 V*IT«t6#bwVt N4AX 
TB 1 1 *LPT .*0. 61 HR I Ti < 6# 61v 1 N"AX 
T * t I PLOT. E Q,T1 WRITE tt»fc401 NNA« 

ZZ CONTINUE 
C 

C RBVFRS; SIGN 0*= X e 0* OUTPUT 

C 

JHA*«NADtNN At*ll-1 
DP ? J«1 # JN AX 
* CONT*t J1--C0NTXIJ1 

C 

C PRINT ; ONTOUR LINE FOR EACH VALUE 

C 

NAR(1I«1 
00 l N-1#NNAX 
NP«NA0IN»1 1-NAOtNl 
MCnNT.NAPtN 1 
t ■TC m»(A,nCONT) 
rVALINKACONTILl 


CONOUT 

2 

rriN^jT 

a 

roNOUT 

4 

CONOUT 

• 

CONOUT 

fc 

TChE^h 

? 

PLOTB 

? 

CONOUT 

4 

rgNQMT 

l A 

CONOUT 

11 

CONOUT 

12 

rn^tlT 

10 

CnNOMT 

14 

conomt 

15 

CONOUT 

16 

CnwoMT 

17 

CONOUT 

1 * 

CnNQtjT 

14 

CONOUT 

zc 

CONOUT 

21 

CONOUT 

2 ? 

CONOUT 

23 

CONOUT 

54 

ronniiT 

»« 

CONOUT 

26 

CONOUT 

27 

CONOUT 

*# 

CONOUT 

20 

CONOUT 

3C 

CONOUT 

01 

CONOUT 

0? 

CONOUT 

31 

roNouT 

34 

CONOUT 

35 

CONOUT 

16 

CONOUT 

17 

CONOUT 

16 


•1#NA9|N| 

**2«N*0tN#l)-l 
I*t IPinT.£0*2t CO TO 1C 
TR tTPLOT .GT. 41 60 TO 35 
TVAl- 1. C + FACTMl.O-CV Alt Nt 4*21 
NR I TB 1 6, 4J J ) NP,CmiNt#TVAL 
GO TO 4 J 

NR t T£ (A#5 10 1 NP»CVALtNl 
GO TO 4J 

TF tIPLOT .€0, 51 NRITEI6#620t NP# C VAL t Nt 

TB t T p LOT .EO. 61 WPITEft#630> NP,CVAL|M| 

I* tTRLOT. SO. 71 WRITE tft.fcSAl NP#CV4 Un1 

TF|nhTN"¥.bo.11 GO TO 45 

WRIT* fb» 420 1 

GfJ TO 4C 

NRITEtt,*2«l 

CONTINUE 

V* TTB 15, A33 ) ICONTtfT I# CQNT Y t I) » !■ Nl» N2 1 

CONTINUE 

NAOtl 1 • NNA V 

•ESTOPE STGN OB x 


00 3 J *1 » J 8 AX 

CONT* m— c ONTI t J 1 

P E T U*N 

e 0PNATtIHX/ /44X, 33HVFL0CITY AND TFHPFOATU? e CONTOURS/ARX# 33 t lHM / / 

• lvi*# I 3# 4 JH VELOCITY IT'npEBAT JPf 1 C A NT0'JR 11 mp< Hfll'NOl 
eO»"ATt///3X,I3,35H POINTS IN C ON TOUR UNf OB V /VI nb .,F7,3, 

• 1 1 h, T/TINF «#B7.3//I 
BQPNATfj^v, 3HX /0,17*» 3HR/C/1 
BORNATt 14X# 4HX/B0.16X»4HP/Pin 
C/lPMATf 4*»FU.4,13X,FW.4 1 

e O*HATUHl^ /57X#15HOENS TTY CONTOUR $ /? ?X» 1 6t IH*1 / / 

• 13 X » T 3# 28 M OENSITV CONTOUR LINES r OUND» 

BOPNATC ///5X#11 v 34H POINTS fw CONTO-IR LINE OB pho/PMOInF •#b 7.3//1 
BORPATn hi/ M 3X, 23H8AGNETT: FlftO CONToiipb/sj*, ?3(1H*)// 

• nx#I3#35H HACNfTtC e y cl ^ CONTOU* LINES bqjnO^ 

• 1*X# 33Nt FO* COMPONENT ALONG BT£ld t TN<-8 , 

• 31HP ARAL Lfcl TO BLOW IN FREES T** A* 1 I 
cr4«.*T(:Hl//10*,t3»35H NAGNfTT r CJELO “OMTOijl LINES FO"Np/ 

• ! 4 x , 33 H( for CnHPONENT ALONG *I?LC LTNB$ , 

• 36HP£R»ENDICUL AB TO FLOW IN e »*CSTptt»*n 
c 0RP4Tf Uti X, tl»34H POINTS IN COiTC'P ITNB 1' 8/*INF , 

1 12Ht*APALLELl •»F7.3//1 

BOR<*ATt//MX# I3»34H POINTS IN CONTOUR l dc «/binc , 
i lTnt PBppfNniCJlARI » , c 7, 3 / / 1 

FQPHATflHj/ /i:x, T 3, 35H NAGNFTIC Hfll CONTOUR LINES bound/ 

• 14x#33Htf0P C3PP0N1NT ALOnG FIELD LINES , 

• 24HNHB PA L Tfl BLOW I w BBEcSTREAP»» 

BOPNA TC///5X# I3#34H POINTS IN CONTOIJP LINE T B • / 4 J N F » 

• ICiMfHnpmil .,B7,J//J 

CNO 


<u»»oyT»i#t contp 
r 

r tmi * f'liPO'iTINc PLOTS and l A4 : L S CONTomp LTN««. 

C A L S A OPANS BIt L f* LINES FOP “AGKETK Bt?lO ^TB£NRTm PL n T S. 

C UCC PLOT SU8R0UTINES USFD A* E 

C OOTIN,NUNPLT#VECT a p. 

C 

n I * Bh S i on HSi;531#VStl511 

#OPPON /t A4 LS / XLA4/2C»1 »YLA4 HL ),c V13C 1 »NCl #11* tlG » ,NL» ■ 

r n«*«ON / S OIL E / XS*# T8F, fPAX#YPAX, XLN^TH, Yl NGTH 
LEVEL ?#NB, N1F,X4F,PPB, EIM|6L«9E 

rOPNDN /4 V*L / N4#N8*I52 »#*RFt5:#lf «.l»RPFt5l#ie01»tL8Btf I#1J0I» 

* GA*4B(;i, IOC 1 

C ONNON /dnSTRN/ T»LrT#N7END»NIA0D# k ’X*l or 

«*PPN0N / 40'J N05 / X400I13*, 1,Y400( 17' 1#»SHH|1. *| ,ysh*i:^i t # 

• NR-AX#NXPAX# ANACH,GANPA#HR0,NMINPX 
LFVSl 2# XST#YST»NUNST#NST 

(■ONPDN /STREAH/ XSTt50#1521#YSTt5c#1521#NU«ST(>il,NST 
CnPPtON /PIOTC/ CONTXtlOi;.!»CnNTYtirj;i,cVAt t3*.l »NA0t3Cl »I'LOT 
C 

IBttPl0T.«-0.11 GO TO 73 

f 

C ORAN CONTOUR LINES, 

f 

T4.1 


OONTP 2 

CONT* 2 

CONT R 4 

CONTR 5 

CONT* t 

font* t 

CONTP P 

CONTR o 

l A *L S 2 

s r At p p 

8VAL 2 

OVAL ? 

8V»l 4 

ONST*p ? 

80UNDS P 

4TIN08 J 

STRFA* ? 

STRBAP » 

PL DTC 2 

CONTR ! 7 

CONTR 1 ■ 

CONT* 10 

CONTR ?C 

CONT* »1 

CONTP »2 



nn-*ur>t 



xxzi s 

*7 C DOT 
uuuu u 


*-►**"► K K y y- y y y y y y y y y y y y y y y y y y y K y y y y y y y 

(>szzizzx>zzszzzyxss>z>zzzi ifixz XTtzrizxi izrxjf trzsz >t zvzzizzzzzzvx iizzziztsrzi 

sc eo roorrrcrc Doccorrrc'cfrc'Doerccrrce'tsc'CPC'rcT'Pcr ecrcrcc oc cocot c-oocr'C'C'C'OC'ODDecooc 
JUUUL'UCb VUU VU UW VUVUkOUUUb k uvtl VWfW UVUblbtl'UVtU OtMjyWUC k C CC C UUUUk UuUk'UUk- LUCUVkUt, 
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ro**Ti 
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2 44 V^X4fy>-YS(*i-nMYS*Nt-YS(K-l)lM*40Dt Jl-XS(N-l) ) /f X$ I H | -XS ( N-l )) 
IF (YSXAOO .IT. YAOOmt Ml* N 
24* CONTINUE 

no 250 n,ni,nn 

CALL OnTLMIXS (M|,YS (HI, XS(N*lt » YStN*l 1, 25,1 ) 

253 CONTINUE 
2 2-. CONTINUE 
•ITURN 

'NO 


CONT# 

CONT* 

contr 

CONTR 

CONT* 

CONT* 

CONTR 

CONTR 

CONTR 

CONTR 


1«1 

192 

193 
1*4 

195 

196 

197 
19* 

199 

200 


SM«StUTTnE CONTUR 

c 

C S'J**OUTTNE CONTU* CONT*Cl< CALCULATIN'* ANO »R*NTtNG Tmf CONTOURS 

C ANO CHEATING TH? PLOTS 

C 

'‘ONNON / • IN / ANGR»ANGN,R3C0N,3':nN (2JI 
LEVEL ?, 4* *n, PRERR, ANCIRP, Nup^iNS 

CONNON MCONPS/ APARA<20»1001.*P£RP(23,1001 , AN0»N(2C,l*il, 

• «*Ufi( 20*100), AANS(2O»100) 

'Opnon /POUNDS/ *3001 13Ct,Y3aO(l3Lrt»TSMi<ptOt»vSWl< U3C. I * 

• m*"AX»n*i*AX, ANACH,GA 1NA,Mta,NMINP* 
rQNNON /CONT/ KVCON.VCON(?CI»«trON#RCON(2fl> 

CONNON /FLOW/ 9CI2a»100»*YCI73»10CI*VFI2l»llO1.RHOFC2O,ltrl 
P«NN"M /ONSTRN/ 7 PL OT, NTtNO, NZ ApO, NX*L OT 

PONHON / PIOTC / f ONT I ( IOC: t , CONT Y( J( ) > » CV Al 1 10 t » *H0 1 30 t * T Ft OT 
LOGIC AL LRTRUN,L7RFl,lPRST,LP*rON,lP**, LPLOT»LTRAj,L**TRT 
Cnh«qn /ptrjPT / LRE#MN,LPtFl,LPRST,lRRCnN, LPR3»IP10T»LTRAJ,LRSTRT 
LEVEL ?» *ST,YST,NUPST»nST 

pqNKrjn /STREAM/ XST(5*» *52), YST(5;,l52)»NU«STt8vl ,NST 
pfixinN M r H EC* / tCOK ( 4, 10CC ) 

OTnfmsion 8 SC N ( 2 0, 1 OG ) 

c 

c *L A T STREANLINES 

f 

TF (LPLOn CALL SFCALCI *<MK,YSMK,N*nA*I 
IPLOT-3 

IF (LFLOTI CALL PLO*CN 
c 
c 

C r ALC'tL 4TF VELOCITY CONTOUR LINES 

C (GRIP IS NRNAI AY NXNAX I 

r 

if <«vrnN • ls« gi go to u 

r *ll N»MVF,20#C0NTX,C0NTY,KVCnN*2»VC0N,NA«,lv . ,3J»TCHK, 

• 1* 1»NR MAX, NXNAX) 
f 

C *L OT VELOCITY ANO T f NPf*lTU* c COHTtJRS 

f 

TPLQT.i 

FACT* 3, « *16 ANNA-1. C »*AN*CH*ANACH 
IF (LRA^ONI CALI C0NOUT(VC0M*FACT»NMTNnx} 

IF (L*LOTI CALL plotcn 
C 

c CALCULATE OENSITY C0NT0U9 LINES 

f 

13 IF (NA-HN , IE* ?| GO TO 2 J 

CALL *‘AA|4t<OF»20*CONTK#CONTY,KRCON,2»RCON.NAO # 13ai»30»TCHF, 

• l.l*NRNAX,Nf-AXJ 

C 

C AL^T NFNSITY CONTOURS 

C 

T PLO T “1 

if (LARCnNl CALL C0N0UT(tcaN*F4CT#N4lNOY» 

IF (lUFTl CALL PLOTCN 
f 

C **AICUIATE, print, 4NP PIOT CONTOUR LIN** fr# PARALLEL 

r AN»> P E* P E NR 1 C ML A It MAGNETIC FIELO CpNtosENTS 

r 

2j T e INR-nN * L5« Cl 60 TO 200 
no 100 J *1 , NX n A v 
no 100 1*1, NR N A X 
4SCN(T,i|.APARAU,JI 
ICO C n NTTN'JE 

CALL NAP(ASCN,20,CONTX,CONTT,RBCON,2»AC n H,NAO, 1000,30,1CH“, 

• 1*1, NRNAX, NXNAX) 

TRLOT-5 

IF (L»RCnN| CALL CONOUT ( OCON,F ACT, NHt NOT | 

IF (LRL0T1 CALL PLOTCN 
no 110 J*l, NXNAX 


CONT'IR 

2 

CONTiJR 

* 

CONT'JR 

A 

contmr 

9 

pom^ur 

t 

BIN 


■co^ps 

2 

SCOOPS 

3 

9C0N*S 

4 

B3UN0S 

2 

•OUNPS 

* 

CONT 

2 

flow 

2 

PMSTRN 

? 

RLOTC 

2 

P*OPT 

2 

BRO»T 

* 

strfrn 

? 

ST»« A* 

3 

IC«FC«t 

2 

CONT'IR 

17 

CONTUX 

1 * 

CONTU# 

19 

f ONTtJR 

2C 

CONT'IR 

21 

contur 

,» 

CANTU* 

23 

CONTUR 

7 4 

roNsu* 

** 

CONT'IR 

2* 

CONTUR 

27 

CONTUP 

9 « 

CONTU* 

9 0 

CONTU# 

3! 

CONTUR 

3! 

CONTU® 

32 

CONTUR 

13 

CQWR'JR 

34 

CONTU* 

3! 

PONTUR 

36 

CONTU* 

37 

CONTU* 

3*1 

CONTUR 

39 

PONT'I* 

40 

CONTU* 

41 

CONTU* 

4? 

CONTU* 

43 

CnNTUR 

44 

CONTU* 

49 

CONTU* 

46 

CONTU* 

47 

CONTUR 

40 

CONT'IR 

49 

PONTUR 

9C 

CONTUR 

91 

CONTUR 

92 

CONTUR 

99 

CONTUR 

94 

CONTUR 

• » 

CONTUR 

56 

CONTUR 

57 

CONTUR 

52 

CONTUR 

99 

CONTU# 

60 

CO"TUR 

61 

CONT'JR 

62 

CONTUR 

63 

CONTU# 

64 

CONTUR 

65 


no llo T*2» NRNAX 

CONTU* 

66 

4SCH(I,jf8PERP{I,j) 

CONTU# 

67 

110 PONTINUE 

CONTU* 

6* 

CALL NAP(BSCN,2J,CONTX,C0NTY,KBC0N,2,3CON,na0,1000,30,ICHp, 

CONTU* 

69 


CONTU* 

TO 

I PL OT *6 

CONTU* 

71 

TF ILPRCON) CALL CONOUT t SCON, FACT, NHI up xi 

CONTU* 

72 

IF flPLOTI CALL PLOTCN 

CONTUR 

73 

no 120 J*l, NXNAX 

CONTU* 

74 

np 123 1*2, NRNAX 

CONTUR 

75 

■SCNII, j|*9N0RN(t, J> 

CONTUR 

76 

120 CONTINUE 

CONTU* 

77 

CALL MAPI *S CN, 20, CONTX, COMTT,R RCON, 2,BCON,NAO,lOOb,3D, I CNN, 

CONTU* 

78 


CONTU* 

79 

T PLOT*? 

CONTIJR 

90 

tf (LPRCnM) CALL CONOUT (SCON, FACT, NHINpxt 

CONTU* 

•1 

IF ( L PLOT 1 CAU PLOTCN 

CONTU* 

R2 


CONTU# 

83 

2Cj. CONTINUE 

CONTiJR 

84 

IF (|*LOTI CALL ENPLTI3. 0,0,{i) 

CONTU* 

85 

RETURN 

CONT'IR 

"6 

«sn 

CONTUR 

87 


FUNCTION DROXIX,*) 
c 

r THIS FUNCTION nETERNINES THE SLO*F OF THE STR E A"l I Nf 

C AT THE POINT (X,Y) 

C 

CONNRN /AltJNT/ THEY k ( 25 I , PP ( 2 3 , 23 I , N8L UNT 

CON"ON / A O’J NOS / XBnn(lo 01 ,Y 300 tl 30 ),<SH«< 133 t»*SHKU 3 Ct» 

• Nr*a*,nxi»*x,A"ACH.CANPA,HRO,NhINDT 
LEVEL 2, ANG, OX TH, 0?6 

COMMON /PRO/ ANGf 20 , 1031 * PXTH(IOJ)# PEG 

CONNON / FLOW/ XC(20, 1001, YCt21*105»,VFt2:, J101, RHRF(2c,ifM 
P 

C LOCATING POINT IN GRTO 

C 

** (* .RE. GO TO it 

THTt- AT AN 2 ( V,-yj *0£G 
R*Sq#T( Y** 2*Y**2t 
no 1 J> 1 » H* LUMT 
IF (THcTAI J t.GT.TNTAl GO TO 5 
3 p OnTT NO? 

J*N4LUNT 
5 JR-J-1 

IF (J*. IT, it JR*1 
SI 0PF*{TMT4-THETI(JRn/pXTH( JR J 

P?*R»(l»jRt*tRP<l,jR4lt-RP(l,jRH*5L0Pt 

on T I*p,NtRAX 

RI.R 2 

•2-RRII* JR|p(RP(I*JR«lt-RR(I»jRt|RSLnpF 
TF f R ? ,GT, R 1 60 TO 8 
7 CONTINUE 
I«NRNAX 

\ GO TO 2. 

C 

13 'ONTINME 

• • Y 

no 13 J-NUUNT, NXNAX 
TF l*Ctl»Jt .ST.Xt GO TO 19 
13 C ON Tt N1)F 
J-NXNAX 
15 JR«J-1 

TF ( jr,lt,nblijnti JR-NHUNT 
SLOPE*tX-XC(l» JR11/0XTMCJRJ 
R2-YC(1* JR>P(YCIl»JR«lt.vC(l,JRI)*SLOPF 
30 17 T-2,NRNAX 

•1 *i? 

• 2 *YC(T,JO ♦IYCH* 4 R*lt-YCI I*JRU*SLOpf 
te C»» , 6 T, R) 60 Tn 18 
IT CONTINUE 
t*NRN AX 
19 ponttnmf 

c 

C BIVARIATE LINEAR INTERPOLATION 

C 

?3 CPNTIN'JF 

npl*AN6< 1-4, JM*( ANG( 1-1, JP4X1 -ANGU-1, JR 1 1 *SLOPE 
PR2*ANG(7, JR)4|ANGtI, JR41 l-ANGU, JRIt*SLO*E 
nRpx-o*i*nP2-oRD*(R-«i) /< *2 -rii 


0R9X 


0*0Y 


0«nv 


ptnx 


OROX 

6 

8LUNT 


AOUNOS 


80UN0S 


0»n 


DRO 


FLOW 


0*0* 

11 

0*0* 

12 

ORPX 

13 

0*0* 

14 

OROt 


0*0* 

16 

0»nx 

1 7 

0*nt 

1» 

otn* 

1* 

0*0* 

?P 

0*0* 

11 

Otnt 

9 y 

OROX 

23 

ORO* 

24 

0*0* 

»5 

0*0* 

*6 

0*0* 

27 

ORO* 

2A 

0*n» 

2® 

0*0* 

*0 

0* D* 

31 

0*0* 

32 

ORO* 

3 * 

OR 0* 

34 

ORO* 

35 

ORO* 

36 

OROX 

37 

OROX 

1* 

ORAX 

3 • 

ORO* 


OROX 

41 

ORO* 

42 

OROX 

43 

ORO* 

44 

eto* 


ORO* 

46 

OR nx 

47 

OROX 

4 A 

ORO* 

4® 

OROX 


ORO* 

51 

ORnx 

92 

ORO* 

93 

ORO* 

94 

0*0* 

99 

ORO* 

96 



140 


RETURN DtfX 

*NO 0« OX 


SUBROUTINE ICHfNP 

c 

C PUNTS INPUT CMC* USED Ffl* R1»N 

C 

OlNF>»StON c«om 
WRTTF «6*11A1 
13. CONTINUE 

•FAD (9*11H CRD 
C T|S, NT 

TP 110*15)1 30*20 
2> CONTI NMf 

WRITE (6*1911 CRD 
C!» TO ir 
M rnNTtNUF 
•FwfNO ■ 

■•TURN 

1C3 POR-iTIBUOl 
Id PqRHATtlI.RAlOl 

11> FflRPATI l MJ* A AX, 15HL IS TINC OP INPUT CAROS PnR HIS RUN/49X*35 U4«) 

i nn 

*n* 


0»DX 
OROt 
OR OX 
DROX 
DR OX 
OROX 
OR OX 
DROX 
OR Of 
DRDX 
OR OX 
DROX 
OROX 
OROX 
OROX 
OROX 
OROX 
OROX 
DROX 
DR Of 
OROX 


SURR'niTINf £NT|R( RQ02*J*X*NV4l* Al* A{* JNKN*KNIN* ICHK»ROIH*X* V*NX V* 
• ACHIT* ISI 21 1 
C 

C COWT-tUR PR OCR AMS PAP, WALK* SERCH* |NT|*, and CHECK 

C WRITTEN BT REESE SORENSON* NASA-A"IS R£S. CTR.* AUC*, 1«T4, 

r MOntPtFP VERSION) 

C 

C ASSUMING THAT A POINT ON A CONTOUR LINE HAS BEEN PP"ND» 

C THIS SUBROUTINE RECORD* THAT POINT TN THE NOQKK EEPPI N6 ARRAXS, 

CONN-VA /plow/ XCUD«1091*rC(2S*10ri*VP(23»lO0l*RHOP(20*lC01 

*'TNfNSTON !CHKU*l)*X<l)*VUt*ACONT(ll 
C 

NXT«NXX*1 

T*f NXT.CT.ISIUI CO TO 1 
C 

tCHK(l,NXTl -K0D2 
TCMM2»N«ri ■! 

TCMK(3,NIY)-K 
T C M *( A* NXT) •NVAL 
C 

C IP CnD«OInTS AR* E3UAL* ?NT5R "IDPOINT 

c 

I c (( A2-A1 UEQ.O.O) CO TO 6 
0TP-(AC0NT(NVAL)»41IM A2-A1 1 
*0 TO (2*11 *K002 
6 DIP-0,5 

<0 TO (2*3), KOO? 

c 

c TNTFRPOLATE *0R CONTOUR POSITION 

c 

2 x2-xru,P*i» 

T2-TC(J*K*l) 
r.0 TO A 

1 X2-XC (•*♦! *K I 
T2-*CCJP1,K) 

a xi*xc(j*p) 

»1-TCCJ,KI 

X(NYT)-X1*0IF*|V2-X1) 

x(NXTl-Tl»l)IPPCr2-Tl) 

KOOA-I 
SO TO 9 

c 

1 WRITE (6* tail 

101 *ORNAT( A »H1 CONTOUR SEARCH ABORTED - TABLE OVERPLOW IN IX,V|| 
*UD4-? 

c 

5 CONTtNUE 

RETURN 
f NO 


ENTER 

«NT«R 

ENTPR 

enter 

INTER 

PNTPR 

ENTER 

ENTER 

ENTER 

INTER 

PLOW 

ENTER 

INTER 

ENTER 

FNTPf 

ENT«* 

FNT«* 

ENTER 

ENTER 

SNTP* 

ENTER 

ENtrt 

PNTft 

ENTER 

ENTW* 

INTER 

ENTER 

FNTER 

PNTIR 

ENTER 

ENTER 

ENTER 

INTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

enter 

ENTER 

ENTER 
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JNAX-N7FNO*N2A00 

2 J*1,JNAX 
00 2 t-l,N»NAT 

* *C(T* U# J> 

••INT VALUES ALONG SVNNETRV AXIS 
WAIT? (6,21>l 

F ACT«9,9*(5 ANNa-1, Q I *aNACH»ANACH 
I«InhInOX.EQ.1) CO TO « 

WRTTE<6#2?3) 

go to 2 

13 W»ITF»A*2IB» 

23 C«NTT*rjr 

00 3? I *1 (NRN AX 

▼■l«;** e «cT#u.i.w?u#x»**zi 

».»M»r(T,n*y 

WAIT? 1 6(200) I(TC<I(1)»VFU(1)»AH0F(I(1I(T,» 

TO CONTI"!? 

•MNT VALUES OVER SLUMT SPOT 

WMTPI6*20> 

*»P 40 l»2»NHUNT 
WATT? <6# 25*. I J(TH?TAC J) 

TFtNNINDX.EI.l) 60 TO 56 
WAITEt6(26'5) 

«0 TO 

50 WAlT e <6(2T3) 

60 rONTTN'l? 

on 40 T'1,NRNAX 
T«l.eA'*CTA«l # 0-V*C t( JIAA2I 
••*HOMI*J|AT 
ALAMA*nC«AAN6(t»JI 

WATT? lft,2V)l »#4A<I, j),VCU, J),XCtI, JWV* (I» II* VXU,J», UNA, 
• VF< Ip J)#*M0F(T, J) ,T, A 
4J CONTTN"« 

BBJNT VALUES TO» NARCWHC C"9? REGION 


• EST n, f SIGN OF XC 

*0 3 J*l*JOAT 

or 3 T«1,NRNAX 
3 fru, xt— vu.jt 
aatuan 


?n e nA-»T( 2 x,n(ioi 2 x # ?ie. 4 n 

ZlJ FPRN 4 TI LHLF/ 51 T, 26 H 0 ETAIIE 0 FL PW FIELD p'ITBUT /* II , 26 ( IMR| // // / 

• 5C M FLOW FULP VAtUfS f X T • A *CL AT ?0 TO S YNNJTR Y A*TS# » 

• ’ 3 NTHETA • »« 0 S OFCAEfS/) 

ZZ . e OA-ATUX,lHT,7T,3HI/0( - «(6-<WF¥IN«()T,l^MB^3/pyoi*«A,5* # 6HT7Tt«ir t 

• 6 T( 6 H* 7 AINF| 

2 33 FPR« 4 TI 4 Tf im» 7 X f 4 WB/R 3 ,TX» 6 WV/VINF, 1 *, 10 WRHQ/BHQTNF, 5 »( 6 MT/TTNF, 

• 6*( 6 U * /* I N* | 

24 * FOAHATtLNI. 41 Ii 45 HFLOV FIELD VALUES FAQ" HUNT BODY C 4 lC»'t A TI ON 1 
251 « 0 ANAT(F/ 21 N ANGULAR LOCATION NP.,I 2 , 12 H, AT t* c TA «,FB, 4 , 

• 0 M Of F A cE S / I 

263 AQANAH 4 X.lMI, 7 X» 4 HAA/n,tx,HA/ 0 »AX,lM* 70 , 7 *, TWV*/ V INF» 5 » > 

• 7 HVX/VtNF(|I, 10 HFL 0 W ANGLE( 9 X , 6 HV /V»NF, ?X , 19 MtH 0 /RM 0 lNF, 5 x, 

• 6 NT/TTNf, 6 X, 6 HA 7 AINFI 

2 TJ E nANAT( 4 X*lHl, 6 T( 9 HAA/Ar, OT( 4 NA 7 AO,OV( 4 MT /BO, 6 X , 7 HVF /VI NF, 5 T, 

• 7 NVt/VIN*# 3 X, ION FLOW ANCl E, 5 X, 6 HV/VIN *, 1 * , \r. Ml NQ/AMCI NT , J X, 

• fcHT fTINF, 6 X, 6 HA 7 AINF» 

20 ? f 0 ANATI 1 H|, 41 I, 43 HF LOW FIELD VAlUtS FA ON PARCHING CALCULATION! 

203 E nA"A Tl / /SO N AOOITIONAl AXIAL LOCATION Nn.,! 2 » 10 M, AT »/P -,* 6 , 4/1 


JO F0ANAT|4t,XHI,7X,3NA/0,TX,7NVA7VlNF,5X,THVx/VINF,3X( 

FLOUT 

IOC 

* 10NFL0W AN6LE»9X»6HV7VINF,3X»10HAH0/AN0TN«,«iV,6Hr/TTNF,6T, 

FLOUT 

191 

* 6MB/»INF) 

FLOUT 

132 

315 «0RnaTI// 1JH ADDITIONAL AXIAL LOCATION NO,, 12, UN, AT X/tf -, 

FLOUT 

133 

• F«.4M 

FLOUT 

104 

3ZJ E n*NATt4X,lHl,TX,^N«/R0,6X,THVB/VlNF,5x,THVX/VlNF,3X( 

FLOUT 

135 

• 1QHH0W A N6LE, 9 X* 6HV/VfNF,3T, 1 JHBM13 /BMOlNF ,5* ,6MT /TINF,6X, 

FLOUT 

106 

* 6WB/RINFI 

*LOUT 

10* 

CNP 

• LOUT 

ION 




SUBROUTINE FLOWS T 

FLflWST 

2 

C 



flowst 

3 

c 


TNIS BOUTINE CAtCULATFS THf MAGNITUDE AND DIRECTION P* 

FLPWST 

4 

c 


TNE VELOCITY, THIN CALCULATES THE TRAJECTORY STAEANLINES 

FLPWST 

5 

c 



FLOWST 

6 



CONNON /BLUNT/ TM«TA<25)#RFI2J,25I,NAIUNT 

-LUNT 

> 



CONNQN /BOUNDS/ XBQ0(100l,TA0Dtl00l,XSMKll03)»TSHK«lCO, 

BOUNDS 

2 


( 

• NANAV,NV^AY,ANACH,6ANNA,NRn,NHINnX 

BOUNDS 

3 



CON-QH /DNS T* n / ZRLOT,N7ENO,N2AOQ,NXnoT 

ONSTRB 

2 



LEVEL 2, AN6, DlTH* DEG 

ORP 

2 



ro-NON /DRD / AN6l23,191>»0XTMClca),0E6 

DRD 




CONNON /FfOW/ XCI21,li)),YCI2A»133)(VFI»r,7>:),RM0F(2t»ir' 1 

FLOW 

? 



l?m ?, XST,YST,NUnST(NST 

STREAN 

2 



CQ-mpn /ST9EAN/ XST»5C,152J,ysT(5C,132),NU"ST(50)#NST 

STREAN 

3 



levfl 2( vx,vr 

VC ON B 

2 



'‘OBNON/VCONA/ VX(23,1031(VV(23,1D0I 

VC ON * 

3 



0 1 Nf NSt ON W(20),S(2*,6)*ARf51,AV(S) 

FLPWST 

14 



OATA W/2C*i mit 

FLOWST 

15 

c 



FLPWST 

IP 

r 


CALCULATE VELOCITY AND FLOW ANSLE Ft QN VHOCTTT rONROMEMTS 

FLOWST 

17 

c 



FLOWST 

18 

c 


AQLAR C"OtDTNAT£ UGTON 

FLOWST 

1« 

r 



FLPWST 

20 



NEC-T7.29TT7751 

FLPWST 

?1 



THETA tl ) >0,0 

FLOWST 

>2 



N»H»X-NIH***N7AQD 

FLPWST 

9 3 



op \r j-z,nblunt 

FLOWST 

24 



TMFT*m-TH£TAC J)*9EC 

FLOWST 

25 



o»Th( j-l)«TH?TA( J»*TNETA( j-ll 

FLOWST 

2ft 



00 1* t «i,N*NAX 

FLOWST 

* 7 



VFIT. tl»SO*T(VXU,J1**2*VYII,JI**2) 

FLOWS! 

2« 



TF I A«4| VY( I, J) ) .LT. l.OE-A) GO TP * 

FLOWS! 

2« 



iNG(f,j).vr(t, j)/vtfi,j| 

FLOWST 

30 



GO TO if 

flowst 

31 


6 

ANG fT,JJ-l, fc i-4 

FLOWS! 

32 


:j. 

CONTTV'E 

flowst 

13 

f 



FLOWST 

34 

C 


CTLtNpRtCAL COORDINATE BfGTON 

FLOWST 

35 

c 



flowst 

36 



N»l*NNLUNT*i 

flpwrt 

37 



pp 23 UNXIjNXNAX 

flowst 

!• 



0 YT«f j-i >-xct;, jt-xcn, i-n 

flowst 

3« 



00 2« t-l,N*NA» 

FLOWST 

40 



VGIT, J|«SORT(V«(I,J|B*24VT(I»J|B*2t 

flowst 

41 



»F UBSCVIIt(JI) .IT, 1.3E-4I CO TQ it 

FLOWST 

4? 



4NC-IT»Jt«VVM> JWVttI, j) 

FLOWST 

43 



GO TO 2. 

FLOWST 

44 


16 

ANf (T, J)*1 S CE4 

FLOWS! 

48 


27 

CONTINUE 

FLOWST 

46 

f 



FLPWST 

4T 

r 


SNQPTH rhqf anp VF ALONG CONSTanT-THETl lines AT NO«f, 

flowrt 

4 B 

C 


IJSIMP THIRD DS6BE* LEAST SQUARES FIT 

FLOWST 

49 

c 



FLOWS! 

5* 



00 25 W»NBIUNT 

'LOWS? 

51 



CALL c LS0ty(n»max, 3,RRU, J),RH0F(1»J),W,2 5,S, AR,tER) 

*LOWST 

5? 



CALL FLS0FV|NRNAV,3,Rp(], J) , VF ( 1, J ),W,25,S, AV,f E*) 

FLOWS! 

53 



on ?5 t-i.nrnax 

FLOWS! 

54 



j» 

FLPWST 

55 



VR II, J)« (UV(4I*XRA«AV( 3H*»»M*Vl2JK1l(*»Vm 

*LOWST 

36 



RMOFJ I, l»-( 1 4R(4t*XR»R4R(3l IBXRRrAR(Z11*X*a*ARIH 

FLPWST 

57 


23 

C«NT»NUF 

FLOWST 

SB 

c 


•XTFARPLATE FOR VALUES ALONG AXIS ^F SYNNSTRT 

FLOWS? 

59 

c 


FLOWS? 

6C 

c 



fl«wst 

61 



CALL £XT» AR 

FLOWST 

62 




FLOWST 

63 



ANOtf,l|«(,Q 

FLOWST 

64 


31 

CONTTNJF 

FLOWST 

65 

c 



FLOWS! 

66 

c 



FLOWS! 

67 


I 
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C CALCULATE STARTING POINTS FOP STRF AML TNf CALCULATION 

C HS6 GRID POINTS OH SMOC» IN NOSE RFGlPN 

J EOUAL V-SPAMN& OH SHOCK nOWHSTFEA" 

«n 3? J-2.NMLUNT 
»ST(4-1 # 1)>VC(NVHA«»J| 

YSTM-1,1)-YC(NRHAX, J| 

32 continue 

NST-NMLUNT-i 
4nnST-31-MST 
HO 34 *-NAlUNT*NXNAX 
T r r»Cll»KI .61, ?»10T| cn TO 33 
34 cp*TtNUE 
K-NVNAV 

MXP|MTm« 

ystn-tstins t,:» 

DRRT.ANiK.IVSTN-YSTtNST-l,ll,|Y$TF-YSTNirADQST) 

«XaH"li|NT 

ftO 39 *.*»Uuht,;q 

rSTM.Y$TH*OtST 

*r | VS*N .CE.YSTF I GO TO *C 

•*'T>«U»1 

or 3? IV-«X,NXNAX 

IP (YSTN ,GT, vriNRMAX, JXl) CO TO *7 
VST|NST,H-VSTN 

XSTfHST t l|.XC(N>«AX*4X.ll«|VC(HRHAX»JX|.ffi;tH»NAX v JX-.:i) 

* *IYSTN-YC (NRNAX, JX-1M/|VC(WRM«», jf)-YC(MPNAX,JF-LI ) 

SO to JO 
37 *“OHT?iriF 

33 «lij« 

4j CONTINUE 

TFIOToXCIS* NTPIOT) 

c 

C CAIC’IIATE SToEAHIINE TRAJECTORIES 

r USING THIRD ORDER "ODIFIEr E"l 5# INTEGRATION PROCEDURE 

•UfRX’,— ¥CfNPNAX,Z»«,w2 
omb*2-»oa*U0H*U,?F10T*,iX*1..E-6) 

on sr IST-l.N'T 
YS-VSTI 1ST* It 
*S-XST| JST,il 

»F ITS .GT, J.,*) OVRX-DWRX2 
0" 4? t.2,132 

If l*S*D«» .GE.TPLOT) co TO 47 

n«-pwRT«,2 

O0 42 K-l,* 

OROXlaOROXI XS*YS) 

TSl-TS*ORf» x«nx 
*S! -IS 
VS- VSL*QX 

YS-YS *;.5MDRDIl+ORDX(YS*YSlM*Dt 
IF (Y?I.L s .0.0 .AND, XS.FT.0.3) DYRf-nYRr* 

43 CONTI Hill 

ystijst.ni- *s 
YSTIJST,H|»YS 

A3 cpnttnie 

"•IS? 

41 Of- t?FMT-»S>*.2 
On |l *-1,5 
OROfl-OROXt IS* YSI 
TSJ -YS.40RDX1 *DX 
ss-v«*r« 

TS«T<4C.;*i03oxt4DRoxf x s»»si n*nf 

48 CONTINUE 

fSTI JSTW-XS 
YSTCJfTpHJ- YS 
NMNSTIJSTI-N 
53 CONTINUE 
C 

C CONVERT AN6 ARRAY FROM HO* FIELD *IQP£ TO FLOW A NGl F 

00 6C J *2*N XNAX 
00 60 I-I*NRNAX 
ANMT»J)-ATAN(APG(I*jn 
6 coNTTNUF 

return 

'NP 


'LOWST 

FI OUST 
FLr»HST 
fiowst 
FI OUST 
FinwsT 
'LOWS! 
F10HST 
KONST 
FlOYST 
FLOYST 
FLOYST 

floyst 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

'LOWST 

'LOWST 

'LOWST 

FlOYST 

FLONST 

'LOWST 

'LOWST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYtT 

FLOYST 

FLOYST 

FL«YST 

flows? 

FLOYST 

*lpyst 

FLOYST 

*LOWST 

FLOYST 

FLOYST 

Tl«YS* 

FLOYST 

FLOYST 

FlOYST 

FLOYST 

FLOYST 

*LOYST 

FLOYST 

FLoyST 

FLOYST 

FLOYST 

« 10 WST 

FlOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

*LOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FLOYST 

FlOYST 

FLOYST 
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^^SUMOUTIHE FISOFY I P, Mp X* Y, Y» NN1, S 1* A* I £R | 

C PURPOSE 

C flsqfv CONSTRUCTS A LEAST SQUARES ROIYninial A*RR OX t NATION 

C OF SPECIFIED DECREE Tn a GIVEN SET n« OAT a ROWS Y*TH 

C GIVEN HEIGHTS USING ORTHOGONAL ROL YNON f ALS • 

C USAGE 


niN«NM0N X(NI 9 Y(Nl*WtNl # Sl(HNl>6«»AfN41t 
CALL FLSOFY 'M,N,X,Y,W,HNl,Sl*A*If«l 
WIT PARAMETERS 

H - HUNGER OF DATA POINTS 
N - DEGREE OF POLYNOMIAL DESIR'D# N.LT.n 
X - ARRAY QF INDEREnOEnT v ART AML E 

Y - ARRAY O' DEPENDENT VARIABLE 

Y - ARRAY OF POSITIVE WEIGHTS 

«N1 - ROY OTnEHSION OF SCRATCH ARRAY SI* HN 1.C5,* 

SI - SCRATCH ARRAY 

IH THE CPLUNN DEFINITIONS • " L p u» 

T refers TP POLYNOMIAL 0*0'® 

J • €*••? TO ROY INOSXINF YTTHIH A COLUMN 
cm 1 POLYNOMIAL Ptr-1), VALUF AT EACH X(J» THRU 243 

CQEFFJCIfNT OF Each «-»(j-n T£rm #ft'» 243 
COL 2 POLYNOMIAL PHI, SA-e «0RM AS COL 1 
COL 3 ALRHAini), WHERE !»:•! 

cm 4 *ftaI!>, V M f»E t-J-l 

COL 3 !IIIi WHERE T-J-l 

mi 6 SIGNA4R2, WHERE T-J-l 

OUTPUT PARAMETERS 

A - ARRAY OF COMPUTED COEFFIC’FNTS 

A 1 1 1 THRU a ( N *1 1 CONTAIN cq-p^tpd fOLVNOMlAL 
COEFFICIENTS, in 0 *C=R of tnCR’ASING DEGREE, 

Iff - ERROR INDICATOR 

,EQ,C SUCCESS 

• 50.1 IN.GE.NI. OR. (N. L = 

• E 0. 2 mni.LT. m 

• EO. 3 N.u.l 

.50.4 wiii.le,: 


C 'HRS V TH£ p G. GENERATION ANN '*3; ne DRTNnGQNAL 

c folynonials for data-fittinf with a "tgital cn-RUTtR, 

C J. SIAN, VOL, 5, NO. 2, IJi.lNt 1RF?I »». Ya-B4. 

r ndtf - most notatton and most ip'u yariaslf kames are 

r * AS “O ON the REFERENCE* T5 WPP ts VM , T »»|P III, Pf ?1» , 

r 4UT Y# YT AND win REFER TO THE ystentj arbat. 


DImehTiom Xlll,Y|2l,M(ll,SS(MNl,U,Am 
C 

r ••• Initial ScT-up ••• 

r test FOR USER ERROR? 

10 ^ T c» ■ 4 

»F ( IN.g®.m|. OR. IN.le.11I IER-1 

TF IMN1.LT.M1 I fr ■ 2 

♦F t M.l e . 1 1 ItR-3 

*F l T *R. H*. 4 1 GO TO RV: 

C *FTa|?»-J, Pli»-1, Pt-11 -d* YIO* 31 - Sit •*( Y I T 1 J 

n; • n*: 

*1(1*41-0. 

DSO-C . 

YRPaQ. 

mo n> j-;,- 

'1CJ.2I-1. 

SIIJ,11-C. 

VT - W( J | 

IF (YT.lf.'.l GO TO 9R-; 

WPP • WPP4WT 

II) OSD • o$9.wt*YIJ)*YIJ) 


C GfM = RAT c ORTHOGONAL »0LYN0 mI 4LS - TH*1) *43 •*» 

DO 24f I - 1 , NJ 

YTR-C. 

YXRPO. 

C COMPUTE (WR|n*XPU1)* AND ONcCA( I)-|t, P(T|) 

DO \ J-!,M 
TE-R-Yf 31*5113,21 

IF (I.LT.N11 VXRpaWXPPPTI*P«X( J,? | 

2*- 1 YTR-WYP*T s m PR T| J 1 

c *m- 0 MEGAII) 7 Y(I*n 

S1<T,«1 -ytr/ypr 

C PElIA**2III*3flI|AA2(I-l|.<lt|»*ltf((*t| 

0$0-r>S0*S:(I*3>*Slf T*SI«WPP 
r s IGMA*R2in>DELTAR«2II) /(DEGREES OF F R r * D PN ) 

C SIG«a**2(N|-D 

MR • M-I 


LSQFV 

f 

LSOFY 

3 

ISO'Y 

4 

lsqfy 

m 

LSQFV 

4 

LSQFY 

7 

iso«r 

• 

LSDEY 

9 

LSQFY 

1C 

ISO'Y 

11 

LSQFY 

12 

LSQFY 

;» 

lsqfy 

14 

LSQFY 

13 

LSQFY 

16 

LSQFy 

17 

LSQFY 

1* 

LSQFY 

19 

LSQfy 

pr 

ISO'Y 

2? 

LSqfy 

22 

LSQFY 

2? 

LSQFY 

P 4 

ISO'Y 

?M 

ISO'Y 

26 

LSQFY 

»7 

LSQFY 

*8 

ISO'Y 

* 9 

ISO'Y 

3C 

LSQFY 

31 

LSQ*Y 

32 

L SO* Y 

3* 

LFQFY 

34 

LSQFY 

33 

LSqfy 

36 

LSQFY 

37 

lsqfy 

MR 

ISO'Y 

3 9 

LNqfy 

4’. 

LSQ'Y 

4! 

L*QFy 

42 

LSQ'Y 

43 

LSQ'Y 

44 

LSQ'Y 

45 

LSQ'Y 

46 

l*0'Y 

47 

LSQFY 

4M 

l*OFY 

4 e 

ISN'T 

3D 

^FOFY 

*1 

LSQFY 

5P 

LSQ'Y 

S3 

l*OFY 

* 4 

LSQ'Y 

53 

L So c Y 

St 

ISQFy 

0 

L*QF t 

• m 

LSOFY 

S'* 

L'OFY 

6* 

LSQ'Y 

s: 

LSQ«Y 

6? 

LSQ'Y 

6 3 

LSOFY 

64 

LSQ'Y 

63 

LSQ'Y 

6' 

LSOFY 

•>y 

LSQFY 

6P 

LSQFY 

6° 

ISQFy 

7.M 

L SO' Y 

n 

LSQFY 

72 

ISQFY 

73 

ISQFy 

Y 4 

tSQ'Y 

7“ 

LSQ'Y 

*6 

LSQ'Y 

77 

LSQFY 

7 P 

ISO'Y 

79 

I'QFY 

V 

LSQFY 

4! 

LSQFY 

M2 

LSOFY 

M3 

LSQFY 

M4 

LSQ«Y 

•5 
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IF ( BR.nE.3 . ) BR - OS O/BR 

flsoft 

B6 



Sll T, 6) • BR 

FLSOFT 

87 

c 


THPU 240 - CALCULATIONS FOR NEXT I» S*TP WHEN I-N+l 

FLSOFT 

B8 

c 


alrhai i ri )r(wp< t)»xpm ) /wti,i ) 

FLSOFT 

80 



TF M.GE.Ni) GO TO 240 

FLSOFT 

90 



S1IT,3).W*PP/WPP 

flsoft 

91 



WPPO* wp p 

FLSOFT 

92 



WPP*n, 

flsoft 

93 



BT.5111,4) 

flsoft 

94 



AL-Slt1»3l 

flsoft 

95 

c 


PI»*l)R|X-ALPHA|I*i))Pin-B*TAmP«I-l» 

flsoft 

96 

c 


W«T + 1,I*1 )r(WR| IR1)»P(I41))> 8URl)>W(lRl«7RlWWIT,n 

FLSOFT 

97 



or 230 J*l» n 

USOFy 

98 



TfNP-IXI J)-AL»*S11J,2)-PT*S1 (J,l) 

FLSOFT 

99 



wpp-tipP«tf(J)*TENP**2 

flsoft 

IOC 



S1IJ, l).Sil j,2) 

flsoft 

101 


2 33 

SIC J,2)*T5N» 

flsoft 

102 



SH!M»4)rWPP/WPP0 

FLSOFT 

103 


2 4? 

CONTINUE 

FL SOFT 

134 

c 



FLSOFT 

195 

c 

• •• 6fjHPUTF COEFFICIENTS OF LEAST SQUARES *niYNO«IAl 

flsoft 

106 

r. 


A > SIC)PrO)R..»RS(N)P(N) 

FLSOFT 

107 

C 


P 131 P 1-1 ) *3, AIINITlALI-SCf1»l?»Rtf3) 

FLSOFT 

139 



no *0" !*•! »N1 

FLSOFT 

109 



A 1 1 8) « 0. 

FLSOFT 

116 



SJIlR,l)-f. 

flsoft 

111 


3i>- 

S1ITB.2)- 

flsoft 

11? 



S 1 1 1 * 2) "1. 

FLSOFT 

113 



AID-SKI, 3) 

FLSOFf 

114 

c 


SU" LOO* THRU 3U» I • ORDER OF »0LTN0NTAL FO*NFD 

FLSOFT 

11? 



PO 310 T»1*N 

FLSOFT 

116 



*L-«lli>3) 

FLSOFT 

117 



•T-sin*4» 

FLSOFT 

UR 



T2-C. 

FLSOFT 

119 



T1 • !♦’. 

FLSOFT 

120 

c 


F OR N PI lRl|RXPm-AlPHAU4l»*lll-B«TAIT|PII-l» 

FLSOFT 

121 

c 


A ho rod TO POLTNONlAL sun IN A 

FL*OFT 

122 



•'P 11 5 IB-i.Il 

FLSOCY 

12s 



t;.t2-ai*S1 IIR,2)-bt*S1UP*1) 

flsoft 

1»* 



T2-S1ITR.21 

FLSOFT 

125 



S!I1B,1I-S1(IB,Z) 

FLSOFT 

126 



S1ITB,2)-T1 

FLSOFT 

127 


31# 

aIIB)-UTB)4T*.*SKTRI#3I 

FLSOFT 

!?• 



T *R • .* 

FLSOFT 

179 


9 6 1 

RETURN 

FLSOFT 

13b 



END 

FLSOFT 

13J 


U'MTfTTNE IJTRAJUP»YR,IT,JT,OT»QJ,nflAG) tJTRAJ 

C TJTRAJ 

C THIS SUBROUTINE LOCATES A TRAJECTORY ROTNT IN TJTRAJ 

C THE COIPUTATITNAI GRID IJT«AJ 

c I JT*AJ 

C IT, IT IS LOWER LEfT CORNER OF 5»H S'CTTPN CONTAINING I X P» TP I TJTRAJ 

r IJTRAJ 

rONPHN 'BLUNT/ TMETA(25)»RRI2J»25 )»HBL"NT RL"*<T 

CO*«nY /BOUNDS' XBOOtlOC»*YB09tlOL,>,Y*HYtlD->I.YSM*'ll(K ). BOUNDS 

• NtNAV.NXHAX, APACH,GA>1BA,M*0,MMINCX BOUNOS 

l E V c l 2# AHC, DXTH, DEG Otn 

C ONTN /ORD / AN 6 ( 2 J# 133 l*nXTHt lc i>»OEG ORO 

COPNON /PLOW/ XC I2J,lb9l. Y6 (2J,Dc )»¥F| 2f ,:3CI,RM0F|29, If M HW 

C TJTRAJ 

C * n THT IS IN POL *R COORDINATE REST ON TJTRAJ 

C TJTRAI 

tF !*• .GS,- b.Cl GD TO !P IJT*IJ 

TUTA* ATANK TP,-X»1*0ES IJTRAJ 

••SO*T(TPPP2AXPR*2» IJTRAJ 

DO 1'. J«2»MBLUNT tJTRAJ 

IF (THETA(J) ,GT. THTA) GO TP 23 IJTRAJ 

IT CONTINUE tJTRAJ 

J-NRLUNT IJTRAJ 

2. JT-J-1 TJTRAJ 

OJ-ITHETAIJl-TMTAI/OXTNIJTI TJTRAJ 

R2-R*U» JT»*0J4RP(I.JT*1M(1*3-0JI IJTRAJ 

TF (• .LT.R2I 60 TO 103 IJTRAJ 

DO li» I«2 ,HRpAX IJTRAJ 

• 1-R2 IJTRAJ 

»2-RMT, JTIPQJPRPU# JT*l»Rtl,3-0JI IJTRAJ 

»F (R2 • GT* R ) GO TO AO IJTRAJ 

33 CONTINUE IJTRAJ 

60 TO 1JC TJTRAJ 


2 


6 

7 

P 

2 

2 

3 

2 

3 

2 

13 

14 
If 
16 
17 
IP 
19 
?P 
»i 
2? 
?? 
2 4 

25 

26 
1 7 
24 
2R 
10 

31 

32 


43 IT-I -1 

OI-<P 2 -R|/t* 2 -«ll 

"FLAC-U 

RETURN 

c 

J POINT IS IN RECTANGULAR Cno*OINAT6 REGION 

50 CONTINUE 

NX 1 >N 4 L«NTR 1 
no 60 J*nxi,nxnax 
I* IXC 11 »JT ,GT,X*I GO TO 70 
62 CONTINUE 

j.MVP AT 

TO JT«J -1 

oj-ixc(i»jTn)-xp»/nxm(jn 
TZ-VCtl, JTI* 0 JRTCU»JT 41 I PTl.J-OJI 
T* TTR .it. T 2 » 60 TP 103 
on 83 !> 2 »nrhax 
T 1 -T 2 

TZ-vctt, JT) *OJ*YC( I » JTRltMl. j-OJI 
Te »T» . G t « TP) go TO 90 

*3 CnwTTNUF 

60 to :55 
90 TT.f -1 

0 I-IT 2 -TPI /I Y 2 -T 1 ) 

NFl A«*i 
RETURN 
C 

c * 01 NT IS INSIDE IONOPAUS? 

C 

103 CQNTTNUF 

-hap— : 

•ETURN 

c 

C POT NT IS REVQNf) BOW SHOCK 

15 j, pomtimhc 
N*L AG ■! 

•TTMPN 

C 

E NO 


TJTRAJ 33 
TJTRAJ 1* 
IJTRAJ 35 
IJTRAJ 16 
IJTRAJ 37 
TJTRAJ 38 
IJTRAJ 39 
IJTWIJ 40 
IJTRAJ 41 
IJTRAJ 42 
TJTRAJ 43 
IJTRAJ 44 
IJTRAJ 45 
TJTRAJ 46 
IJTRAJ 47 
TJTRAJ 49 
TJTRAJ 49 
IJTRAJ 50 
TJTRAJ 31 
IJTRAJ 32 
TJTRAJ 33 
IJTRAJ 34 
TJTRAJ 55 
IJTRAJ 56 
TJTRAJ ?R 
IJTRAJ ?P 
IJTRAJ 39 
IJTRAJ 

TJTRAJ 61 
TJTRAJ 62 
IJTRAJ 53 
IJTRAJ 64 
TJTRAJ 65 
TJTRAJ 66 
IJTRAJ 67 
IJTRAJ 6 P 
IJTRAJ 69 
tJTRAJ 70 
IJTRAJ 71 
IJTRAJ 7? 
IJTRAJ 73 


MiRPn*JMNF TNRfJT INPUT 

f INPUT 

C THJS ROUTINE READS AIL DATA REQUIRED *1# ?N= CASE* INPUT 

C E T CE°T FLOW MEIO CATA FOR RERUN INPUT 

C IN*UT 

COUPON /4TN/ AN6P.ANGN, K*CON»9CON ( 29) ■ T N 

60"N0N/rnHl/JNAX,KNAX, JH.RU.XOAC-), AL*Hi,6AH,<;iWRl,CM,PT,S"'l, IMT, 60*1 

* OHO* D, NC * , NC 6, NCC, AA,H,ONEGA,NU,NL,IT,T*t|,ITE» ,PHT,PT0RT.*INF. CO»l 

<RIN«,0T»1F,CINF, JCS,TH,CtUS,PT,MDRH,RNOS;,NC*S*:, NPUNCH coni 

rn«Mn« /COST / KVCQN,VCON| 20 ) , K*CON, RCON 12 M CONT 

COHNON /RLUNT/ THETAI25).PPt2e»25)»N«LUHT BLUNT 

“ONHON /DNS TR N / 7PLOT,N7END,N2A0D,NX»LOT ONSTRN 

rnpp.nH/jOE/?Ll,CFl,CF2, ZL F , ZTO AN, DZ T» AN JDF 

LOGIC Al LG»AV Nil *00 

ro«N«N/NUP0D/XXUJ3),TTIlvi )#N80D,L6R AV NUR00 

CO-HOH /ROUNDS/ X40DI139),TSPOI19C),XSH<I103I.TSH« (13C1. BOUNDS 

♦ NR-*Y,NXNAt,iH*CM, GANNA, HRD.NHlNpX ROUNDS 

LOGICAL LRERUN,LPRFL*LRPST,tPR6r!N,lR»R,« PlOT,LT»AJ,LRSTRT PR OPT 

COHNON / RQQ PT / LRE*UN,LPRFL.LNRST»LPRCnN,LPR4,LPL0T,LTRAJ.LRSTRT RRORJ 
CO«N«N /TRJDAT/ NTRAJ.TTRAJU9L )»RTRAJUj3lpTTRAmc 3), 2TRAJUDP), TRJDAT 

• VTR A J{ 1G3 ), VXTR AJ (1 09»* VTTRA J ( ICC ), V7TRAJ(16, |, TNPTRJ tje:), TRJDAT 

• BT*AJ(103),8XTRAJI100),BTTPAJ(1GO),N7TRAJ(1D9),*OTRAJ(1CD), Tt jd*t 

• RT®AJUOO) TRJDAT 

Connon /n»PLOT/ NNAPKT.NARKTI12) HXPLOT 

LnoiCAL LPLTRJ TRQPT 

rONHn^ /T»DPT/ l RLTRJ.RPLNT# VINF,RN0INF,TNPINF, BTNC TRO»T 

lOC-ICAl LSUN SUNDAT 

CONNON /SUNOAT/ LSUN,XTRAJSfl33)>TTRAJmc:)>7TRAJ$(10C)> S'JNOAT 

* RTRAJSU30) , A7ANG, POL AN6.RY1, RVl.SIl SUNDAT 

niNENSlON TITLE19) INPUT 

DTNFNSION NK | 100) INPUT 

DIMENSION R R( 193 ) IN*UT 

eoUTVALENCE (RRtlWYTIl)) INPUT 

DATA HBLANK/IU /.NSTAR/1H*/ INPUT 

C INPUT 

C • F A 0 CARP INPUT FOR ONE CONPltTE CALCULATION INPUT 

C INRUT 

•E ADI 5,100) TITLE INPUT 


2 

* 

4 






144 


READ! 3, llat ANACH,CAPfU,HRO,XCALC,NR,MRLUNT,CN, lit* 

HORN-HRO 

•MMS# 1*0 lRERUN#LPRFl»LPt?T»LPRC0N#lPR4,LPLnT»lTVA J.LRSTRT 

l E»nr 5,1331 X*inT,ANCP, ANCH,NXAOD,LCRAV 

TF IlFLOTt l*RCON-.TRU£ . 

fr ffFlOT ,CE. 0.0) XPinT—W) 

mOT»-XFLOT 

•E A0I5, 14CI RVCD» 

IF IF VC ON .67, 01 R|ADt3,160t I VCONtlt , f«i, RVC ON | 

*1401 5*14, t KRCON 

?* URC9M .CT» 3 ) »E*D(3#mt (RCONf ft , f •!, RPCONt 

>EAD|5»14)I RRCON 

IF IMC^N .CT, 91 *1*0(5,16*1 ( RCONI 1 1» t -1, «*C ON ) 

IF t#N0T. I TRAJ) 60 TO 5 

•£A0( 5,1701 NT»AJ,C TTRAJ(Tt,XTPAJ ( T I, YT*A J ( T I , 2 TR A J ( It , !• 1 , NTR4 J ) 
•EAD( 3.19D) l»LTRJ,RAtNTf VINF.RHOlNF,T-»tNe,»T**c 
•EAD(5,143> NNARRT 

T« (NNAPKT .ST, 0 1 >EADI5»1 R'Jt I n ARKT ( f I , J »\ , N* a*KT I 
MA*)I*,19C1 LS'IN,A2ANC,*0lANC,*Xl,»Yl,*ri 
T* (ISUNI CUt *OTATIlt 
5 CONTINUE 
NMTNDV-C 

IH«4ntM,6T.0.0» NUNOX-l 
IF (| »f»UH| 60 TO 10 

r tF (horn .t t. m ,m reao(s,13.i NsnD»(v«in»«*m»i*i»NRont 

C INITIALISE DEFAULT * A* APFTERS 

C 

IF iroic .GE. C.C) XCALC— 1. 3 
7LF—ICALC 

TF fw» .1 £, 31 Nff *19 
IF (NSLtlNT .LE. Ot N*LUNT-24 
TF CCN ,LE. J.OI CN-3.J 
TF|rT£*.L*..j| »TER-3D(, 

TF (WYADO .LE. A| NI4D0-9 
J"AK-NRLUNTpNXADDp1 

NIFH.jqil.1 

*"A X-NR 

•«7€Np.J*.A*-l 

N7A0D-., 

VHiCM.ANACH 

*A«-GA>m’* 

r 

C WRITE OUT IN*'JT ANO DEFAULT VALUES TO •« i|«7D 

r 

l; '■onttn*)? 

M*TTE(i.Z'0) TITLE 

IF (LRFRUNI RETURN 

W»lTF|#.,2tO» ANACH* GANNA 

«»ITS (9| NRLUNT.NR, ANACH, FAUNA, HOPM 

*F MqeNI 14*16,18 

• A W»TTFI6»2IA ) N400»(Xxm,*R(II,W,N3 r ioi 
a»Tts(Q| N«no,(»TU l»R*(Tl,I-J,NRr)nt 
rn To 2. 

16 «»ITf<%, 2 j 6 ) 

SO T" ?P 

IT TF (LCRA v> 60 TO 1« 

NPirr ib, >j*l HORN 
GO T" ZZ 

jo UR l TF (6,219) HORN 
2; CONTINUE 

V*T T e 16 » 2 ? J I Nt f NNLUNT,NXAno,CN,IT|9,rCALf 
N*ITf (6,21;,) X*l.OT 
TF (L SUN I f,0 T 0 it 
V* tTF (6,231) ANCP, ANGN 
1? CONTI NU * 

«• HE (6»235 > L RERUN, l PRFl , L PRST,L *RC9N,L *» A.L*L OT,L TR AJ ,1 »STRT 

TF (.•m. LTRAJ) SO TO 25 

•crr«i,:/rflnt 

W*TTE(6,26>) LFLTf J,»6RF,VINF,>H0tNF,TNFtMC 
TF (L TON ) WRITE (6,269) 6TNF,RH # *Vl»<tn» A2ANG, POiANG 
WP I TE 14 » 253 ) NTR A J, NN ARKT 
NO 2? N-1,NTRAJ 

21 N*(N) .irlank 

TF (NNARKT .LE. 6) FO TO 24 
00 2 2 1*1, NNARFT 
KaflA*«TIII 

22 NK(R|«NTTAt 
24 CONTINUE 

WRITE (6,266) 

WRITE (6,2671 { N, NK Oi), TTR AJ ( N1 , XT* A JS ( Nt, YT* A IS I N) • 7TR AJS ( N| , 

• N-1,NTRAJI 


INPUT 

29 

tNPUT 

SC 

INWT 

SI 

INPUT 

32 

INP*JT 

SS 

INPUT 

34 

INPUT 

1? 

TNP*IT 

$6 

INPUT 

ST 

INWT 

se 

INPUT 

39 

TNWT 

40 

INPUT 

41 

INPUT 

4? 

TNPUT 

43 

INPUT 

44 

INPUT 

45 

INWT 

46 

IN»UT 

47 

TNPUT 

46 

INRUT 

49 

IN*UT 

50 

INPUT 

51 

TNPUT 

52 

INWT 

53 

INPUT 

34 

INWT 

55 

INPUT 

36 

INWT 

5T 

INPUT 

5* 

INWT 

59 

TNWT 

4F 

IN»UT 

61 

TNWT 

4? 

TNWT 

6? 

TNWT 

64 

IN WT 

65 

INPUT 

66 

TNWT 

67 

INWT 

6* 

TNPUT 

60 

TNPUT 

7' 

INPUT 

71 

INPUT 

72 

INPUT 

7* 

TNPUT 

74 

TNWT 

75 

INWT 

76 

INPUT 

■*T 

INPUT 

7 • 

IN*UT 

70 

INWT 

*0 

IN*)!* 

*1 

INPUT 

4» 

INPUT 

51 

INPUT 

• 4 

TNWT 

85 

FNP'JT 

*6 

TNWT 

57 

INPUT 

• R 

INPUT 

39 

INPUT 

9C 

TNPUT 

a J 

IN*UT 

92 

INPUT 

91 

TNP'IT 

94 

INPUT 

93 

INPUT 

96 

TNWT 

97 

INPUT 

OR 

INPUT 

99 

INPUT 

10L 

INWT 

133 

INWT 

If. 2 

INWT 

133 

INPUT 

104 

TNWT 

135 

TNP’IT 

1Q6 

TNP’IT 

197 

TNPUT 

19 P 

INPUT 

1*® 

INWT 

110 

INPUT 

111 

INPUT 

112 


25 CONTTNUF 


WRITE (6, 240 1 
W*ITE 16# 242 ) KVCON 

TF ( K VC ON . ST* 01 WR(TEf6#253) ( VCONUI, T.f, KVCON) 

WRITE (6#244 I KRCON 

IF (KRCON , 6T« 01 WRIT€(6,253) <*CQN(tl , 1-1, RRCON) 

W*TTF 16, 246 ) FGCON 

I» (RRCON .67. 0) WRITE(6»253) ( 6C0NI t )# W, RRCON) 

OTOt.. 01745329252 
AN6 F* AN6F#0 TO* 

AN6N>AN*N«nT3* 

*FTU*N 

C 

1C 3. FORdA T( R AID I 

113 FO»NATI4Fi;.3 # 2in # F10.t,IlC) 

123 FO»"AT("Ul) 

140 FORNAT t3«10.C#I13,L10) 

140 Fp»NAT(ItCI 

153 FO»RAT(r;o/( 2 F 10 . 3 )) 

160 FntNAT(EFlo.O) 

!7» «9RNAT(Tl*M4FU.;n 

1 t. F 0 *^AT|Rt 1 j| 

19. F«B-»ATIll„3F10.tl) 


20 FORRATtlH!//25X,«4 J>fc .//F/55X,15HINFUT V A *1 A *L ES / 5 5 X , 15 1 1 H» 1 1 
>10 Fnt«AT(//20X,25HTNTEtPlANETARr N AC M NO. «,F6.2 

• 2/22.X,2iaSR£CIFIC Hf AT RATIO -.F6.R) 

2i4 FORNAT(//23X,46H0RSTACtf CEOHtTRVt URER-R"PFL IE 0 COORDINATED 

♦ I4.7M POINTS/M3X,3Hm,llX,3W»/*r 

• Of t,F5.4,6V,FF.a)> 

216 ^OPRATf //2jX,% 9 WORD T A CL F CEONETRYt 0 «fahlt NA«N£TOPAUSE CCOROINAT, 

* 2HES - EQUATORIAL TRACE) 

21* FO**AT( //»ox,42HO*STACLf SFORETRY* DEFAULT tO»nPA*JSE R“APF, 

• /, 39X, J6MF0R CONSTANT SCALE HEIGHT WITH H/Ra*»F4,?> 

219 FntfAT(//23X,42H0RSTACLE CEQNETRTl 0‘H'tT T ONnPAUSE *m A PF, 

* / #39 X. 31HWITH GRAVITATIONAL VARIATION IN, 

• F# 39X, 19HJCALE HFlfHT, H/R^«,F4,2) 

223 foRNAK //23X,37HPARANETER$ fq* *LUNT RODt CAir<JLATTON/F 

• *5X#26HNO. OF RADIAL NED H POINTS -,>4/ 

* 25»,2iHN0. OF angular NESH •OtNTD -,14/ 

* 2f»,27HNO. OF ADDITIONAL *OINTR INF 

♦ 3 5 X» *6 HRLUNT ROOT NEDm *#T4F 

• ?« X, 14MC0URANT NUHRCR,13T,1m-,f5.2 F 

* 25X,17HNO. OF ITF*ATlONS#i;x,lH.,I4/ 

• F/2;x.42HTERMNAL DDWNSTRcA- LDCATIO** «pR p*AR'‘HTng , 

• .7HCALCULATI0N,XF*0-F6.2) 

2 23 FORM T| //2.X,47HTERN1NAL DOWnDTREAN LOCATION for PLOTTING, X/RJ., 

* F6. 2 ) 

231 'PRN4T( /F23t,5JHUS£P SPECIFIED DEVIaTIom m SOLAR-WIND COORDINATES 

♦ F22X,47HPF NAGNETIC Film S YNNETRI-pL Anf CONPDNENT FRO*, 

• F2C».1?h FLOW DIRECTION >,F7.2,6H DFCPfES 

♦ / F23 X, 5 0HUS5 * SPECIFIED DEVTATTOa ta SOLAR-WIND COOPDINAT«S 

• f2-»,5phof nacnetic fielo frdn naon^ttc stnnftrv plane 

* F7.2,sn DEGREES) 

235 e ntpAT( F/2)X«6HL*ERUN -,L 2/ F23 X, NHL PR f L L7 F/ 2CX , 6HL PRST -,L2, 

♦ //23X, 6HLPRCQN -,t2/F2L X, 6HLPR4 •, L2 FF2-1X, FN| *tPT -,L* 

• FF2'X, 6HLTR4J -,l 2 FF*D *, *Ht RS TR T -,L2) 

241 Fn»«ATnHl//45X,40HVALU£S S*ECTFItD FOR CONTOUR CALC Ul A Tt ON F 

♦ 4*V,4d(lN*|| 

242 CONTOUR LEVELS FOR VFLOC»TH) 

244 FORPATf Ff//20V#T2#26H CONTOUR LEVELS fQ» DGnSTTIi) 

244 Fpr*»T( F/7/2DX,T2,44H CDHTOU* LEVELS Fnp NAGNFTK FIELD ST* FnGTHI ) 
25J fornaT(F(13»,6F1&.3)) 

260 cn»NAT(F2CX#6HLPLTRJ -,L2/ 

♦ 1H1 //JCX, 32HINP')T FOR TRAJECTORY CALCULATION/ 

* 5CV,32(1N*)//// 

* F2CX, 34HR0/R»LANFT -,FR,4/ 

* F20X,34HINTE*PLANETARY VELOCITY ••1R£11.2/ 

• F23», 34HTNTERPLANFTARY DENSITY -, e U,3/ 

• F21X, 34HINTER*LANETARV ir«»EPATUPE -fFll.JF 

• F2: Y.34HINTERRLANETARY FAGNETIC FIELD ) 

261 «M*T( ////25X,TMNT*AJ -, 14 , 15 », RHNNARR T •flit 

• 3QX, 46H( • • POINT TO P? NAPKFr) CROFS pe FER«NCF ) / / / 

* 28»#lNN,<»x,5HTTRAJ,ax,3HXTRAJ,7X,5HTT»4 J, 7Y,5 H’TR AJ / ) 

2 67 FPRPATf (26X,I4,1X,A1, 3X,F]0.4# 9X,F6.4,2(4Y, e 4. 4 1 ) ) 

265 c 0»NATC44Y,33H(SUN-PLANFT COORDINATE StSTE")) 

269 FQRNATOSX, 14H NAGNITUDE -,Sll.J 

* /35X,14HX-CO*RONENT ■,E11.3 

• F35X, 14HY— CPNPONE NT -,SU,3 

• FJ 5 *, 14 H7 -CON RONE NT >,E11.3 

• F/20X,29HAMNIJTHAL AN6L C ••■11.3/ 

• F20X, 29NPQL AR ANGLE -,F11.3) 


INPUT 

111 

INPUT 

tl4 

INPUT 

115 

INWT 

116 

INPUT 

11T 

INPUT 

116 

TNPUT 

119 

TNPUT 

120 

INPUT 

121 

INPUT 

122 

INPUT 

123 

TNWT 

124 

INPUT 

125 

INPUT 

126 

TNP’IT 

1*7 

INPUT 

12" 

INPUT 

129 

INPUT 

130 

INPUT 

131 

TNPUT 

132 

TNP’IT 

1SS 

INPUT 

134 

TNPUT 

135 

INPUT 

136 

TNPUT 

137 

INPUT 

13* 

INPUT 

139 

INPUT 

140 

tNP’JT 

141 

INPUT 

142 

INPUT 

143 

INPUT 

144 

TNWT 

14? 

INPUT 

146 

INWT 

14* 

INPUT 

14R 

TNPUT 

149 

INPUT 

ISC 

INPUT 

151 

INPUT 

15? 

INWT 

153 

INPUT 

154 

TNPUT 

15? 

INPUT 

156 

TNPUT 

157 

TNPUT 

15* 

INPUT 

159 

INWT 

160 

INPUT 

161 

»NPUT 

14* 

TNP’IT 

163 

INPUT 

164 

INPUT 


TNPUT 

166 

INWT 

167 

INPUT 

16* 

INPUT 

149 

TNPUT 

170 

INPUT 

171 

TNP’IT 

172 

INPUT 

173 

INWT 

174 

INPUT 

17? 

INWT 

176 

tN*UT 

177 

INPUT 

17« 

INWT 

179 

INWT 

1*0 

INWT 

161 

INPUT 

1*2 

INWT 

1*3 

INPUT 

164 

INPUT 

1*5 

INPUT 

1*6 

TNWT 

167 

INPUT 

! 6 • 

tN*UT 

169 

INPUT 

190 

INWT 

191 

TNP’IT 

1«2 

INPUT 

193 

INPUT 

194 
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SUBRnUTTN? LABEL LABEL 

wm 

THIS t-HITIHE HINtNATES OVERLAP IN MATTING A LABEL 

SET OF COKTOUt LABELS. LABEL 

LABEL 

Common SlAUW »IAB (30>»UA3 1301, CVU01. NCI, tlB (301, NtAB i A ALT 

'•nwNON /SCALE/ XSF,YSF,XNAX,VMAX,XLN6TM,VLN6TM SCALE 

l A ML 

«0»T THE ARRAY VLAS INTO ASCENDING ORDER, CHANGE LAPEL 

THE OBOE# OF UAB AND CV TO CORRESPOND, LABEL 

LA*EL 

r Al l R'JBRltXLAS,Yl4B,CV*NCLtILR»NlAB» LABEL 

LABEL 

label 

*IN0 Ft»ST LABEL FROM SORTED ABB AY THAT IS ABOVE Y-AXIS. LA*EL 

LABEL 

on f B-i»w:L LABEL 

*rtnABCBi.LT.r,» go to 5 lab=l 

BNTN-K LABEL 

Bn TO in LA*EL 

5 CONTINUE l A*“L 

LAPU 

NO LABCt.5 FOUND ABOVE X-AXIS. BAD BET OF CONTOUR VALUES LABEL 

S»ECtFIEO, STOP BtofiBiM.; LABEL 

LABEL 

HPT T* 14* 2 I LABEL 

2 J. FORMAT! HI »1}H**R*PR*RR*,1 iX, 4SHUNABI E TO LABEL CONTOUR LINES BFr LAB5L 
1 A11S F OF OVERLAP, 19X#1CH*B*»******I LABEL 

STOP LABEL 

LABFL 

10 TIBMI-RNIN LABEL 

NLAB-1 LAB«l 

tfimcl.eo.ii return LABEL 

LABEL 

*»AMTNF ALL LABELS BSYONO LABEL XNlN FOB OVERLAP. IA*U 

LABEL 

R-2 LABEL 

BBIMP*BPTN4l LABFL 

OP ir I,BN!NB»NCL label 

TF(YllB(n,LT,YlABCKNlNI*,l/YSF,ANO,XLABm.L^.*lABKNTNl LABEL 

1 ♦,4'YSFI GO TQ 15 LABEL 

label 

Save array HOE* FOB LABEL to *E BLOTTED, label 

label 

kmTN-T LABEL 

TIBI* |*I LABEL 

"LAB-* LABEL 

«a«Bl LABEL 

15 PflNTt nii* IAB?l 

LAPEL 

*NSU9* THAT THE LAST LABEL IS BLOTTED# LABEL 

LA»EL 

TLBINIARJ.nCL t A»»L 

LABEL 

LABFL 

RETURN LA*EL 

FND LABEL 


EURBOUTTMF NAP I a, JOIN, X,V,NL IN, BOO, ACONT, N AO, IS III, IS IIP, IC*t» 
* JNl N» BNI N, JM|Y,KMAX| 

r 

c C^NTOUB BBOGRA«S »A», VAL*» SERCH, ENTc*, AND CHECK 

C WRITTEN Br REESE SORFNSON, "ASA-AMES »«?, CTB, , AUG#, 19TB# 

C INOPTFISO VERSION* 

c 

C THIT SUBROUTINE and those WHICH IT CALLS brfpaRE DATA 

c FOR rilNTIW* PLOTTING# 

c 

C CALLING PARAMETERS* 

C 

C A TWO-DIMENSIONAL ARRAY TP Ng CONTOUR PLOTTED# 

C JOIN FUST-POSITION OINENSTON-SITF ne a# 

C »,Y ARRAYS TO CONTAIN CONTOUR LINE DATA UPON RETURN, 

C EACH RAIR OF XII) AND VUI PF-PFSgMTS A POINT ON A 

C CONTOUR LINE. 

C NltN IS T»t NUN IE R OF CGNSTANT-A CONTOUP LEVELS. 

C «00 *1 IF CONTOUR LEVELS ARE TO R£ CONPUTEO INTERNALLY 

C BY LINEARLY INTERPOLATING BETWEEN THE NAXt**UN ANO 

C HlNt NUB VALUES OF A# 

C *2 IF CONTOUR LEVFLS At E TO B£ GIVEN IT THE USER# 


2 

S 



1 

? 



1 

7 


r 

3 


6 

7 


10 


ACONT ARRAY OF CONTnUR LEVELS# SCRATCH IF BOD-1* 

TF KOD-2 , ACONT HUST BE FILLFO WITH HOHOTONICALLY 
INCREASING CONTOUR LEVELS. SHOULD BE OHEnS TP«ED 
AT LEAST NUN, 

NAO IT SHOULD BE RECOCN 17 ED THAT many CONTOUR LINES 
NIGHT RESULT FRO* EACH CONTOUR LEVEL. 

•IRON RETURN, NADI 1 1 IS THE TOTAL NUN BFR OF CONTOUR 
LINES. ALL THE LIN[S ARE RUN-TOGE^HER, HEAD TO TAIL 
IN ARRAYS X AND Y- THE FIRST LINE STARTS AT XIII 
ANO Til) ANO ENDS AT XIII AND VIM e (jp I-NADI21-1, 

THE N-TH CONTOUR LINE STARTS AT XIII ANO V(!» FOR 
I-NAO(N) ANO ENDS AT XIII AND Till *QR I-NAOCNRlI-l. 
NADlNl FOR N.GE.2 IS THE STARTING ADDRESS IN Y AND V 
OF THE N-TH CONTOUR LINE. 

IBIU OTHENStON SITE OF X AND Y. 

IST7J DINENSTON SITE OF NAD, IT !< OTcfKULT TO «AV 

HOW LARGE x, Y, ANO NAD SHOULD bc DIMENSIONED. 

THIS DEPENDS ON THE DIMENSION SITE PF ARPAY A, 

THE VALUE OF NL IN, AND THE P|GPF« OF EccfNTB ICJTT 
DF THE SURFACE REPRESENT!* By ARRAY A. ERROR MESSAGES 
WtLL RESULT I f TH5SG ARRAYS ARE TOO SMALL# 

ICH* AN ARRAT TO BE USED AS SCRATCH YHE CONTOUR RR 06® AMS# 
IT SHOULD HAVE AT LEAST 4MSIM CELLS. 

JMTNfKMtN, JNAX.KNAX IT IS R ECOGNT R E f) T H 4 T ONE RIGHT 

WISH TO CONTOUR PLOT AN ARRAY A FQP SUBSCRIPTS 
STARTING AT SOME VALUE LARGE® T H AN 1 . THIS SUBROUTINE 
WILL PROCESS ARRAY A<j,KI FOB J MI N.L E • j . 1 « . J HA Y, 

AND SNIN.LE.W.LE.KNAT. JOIN, K"IN, JMAX, ANO KNAX 
ARE THE LIMITS on the SUBSCRIPTS. JNTN AH* KMTN HAY 
b« ;# 


DIMENSION A(1I,XU),V(1I,ACONTI1),NAOI1), TCHB(A,1I 

TDFXt j,«)*j4(K-2t»jniN 

FIND AMAX AND ANIN 
I-IDFXf JMtN,SMlN| 

A "A *- At Tl 


oo ; k-kmtn,kiux 

DP 1 J-JRlN,jRAY 
T-lDFtl J,»| 

VM.-MT 1 

TF( VAl-AHAX 12,1,3 
2 arax.val 

Gn Tn J 

2 TF(val-aninia,1,1 

« A Hj N« V*L 

I continuf 
C 

c find acont by linearly interpolating 

GO TO IB, 61, BOO 

5 Df F>( anaV-INTNI /FLOATINL lNPlI 
DO 7 N«1,NLIN 

7 Af ONTtNI #ANIN#FL04TtN|-f)IF 

M "IN-1 

NMAX.Nl TN 

CD TO • 

C 

f check acont if given ry us=r 

6 M NINO 

12 N M l N- NR T N*1 
TFIHHTN.f.T.NLIN) GO TO 0 

IF! AHIN.CT. ACnNTINMTMM go To 19 

c 

nm ax#nl In*i 

II NMAY.NBAX-1 
TFIwmay.LT. 11 GO TO R 

TFt AMAI.LT, ACONTtNNAXl 1 €0 To 11 

T*(NMTN,FT,NNAX I GO TO • 

C 

IF INMIN.cQ.NMAXJ GO TO 12 

N$T-MM»N *1 

Dp 13 N- RST , NM4X 

TFI ACnNT(N|,LE#ACONT(H-l) | GO TO 9 

13 rONTTN'JF 
12 CCNTTNiJf 

C 

C PART 1* 60 AROUNO THE BOUNDARY LOOKING *0® LINES WHICH 

C INTERSECT THE BOUNDARY. 

I NAD 1 1 1 ■ 9 

J-JMTN 
K-KHI N 


NAB 

NAP 

MAP 

"AP 

NAP 

NAP 

NAP 

NAP 

NAP 

MAP 

MAP 

MAP 

MAP 

MAP 

MAP 

NAP 

MAP 

«AP 

NAP 

HIP 

MAP 

MAP 

HAP 

PIP 

map 

MAP 

MAP 

MAP 

MAP 

•AP 

NAP 

map 

NA» 

• A* 

• A* 
•AP 
•AP 
MAP 
MAP 
NIP 
•AP 
MAP 
MAP 
NAP 
•IP 

• A® 
■AP 
•AP 
NAP 
MAP 

map 

•A* 
MAP 
MAP 
"A* 
■AP 
■AP 
"AP 
MAP 
■ AP 
■AP 
NAP 
MAP 
MAR 
MAP 
MAP 
MAR 
MAP 
■AP 
■AP 
HAP 
MAP 
•A* 
•AP 
MAP 
MAP 
BAP 
NAP 
MAP 
BAP 
NAP 
MAP 
NAP 
NAP 


2 * 

25 

26 
27 
21 

29 

30 
3t 

32 

33 

34 
33 
16 
3T 

3 B 
39 
4N 
6 1 

42 

43 

44 

45 

46 

47 

4 P 
49 

5 « 

51 

52 

53 
B4 

55 

56 

57 
5* 
59 

61 

4* 

63 

64 

65 

66 
67 

6 P 
69 
TO 

71 

72 

73 

74 

75 

76 

77 
71 
79 
Bf 

3 1 
R? 
B 3 
•4 

B5 
B 6 
•7 
• B 
B 9 

90 

91 
®2 

93 

94 

95 

96 

97 
90 
99 

too 

m 

102 

103 

134 

10B 

196 

UT 
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MINT. 2* r JNAT-JNIN|*2MANA».XNINI 
NftO?a2 
*002*1 

IM9MI JNTN.XNIN) 

•A-Aft) 

NYT*5 

C 

HQ 2 f . N-l.NINT 

cn m (*1,22, 23.241, *onr 
c 

C ORIENTATION 1* UPWARDS 

21 JO-1 
IOI>E*( J»*l 

Df j.r*.J*TN| 60 TO 25 
J-JNTN 

TaTDEXt J,*n1) 

*00?-? 

*(v>2*i 

*0 TO 2* 

C 

C OSTENTATION 2« TO THE RIGHT 

22 *.*»1 
T-TOftf J»K*1> 

TFtK.LT.KNAX) CO TO 25 
T *Tn c »( J*l* K } 

*DD7*3 

*on?-* 

?0 TO *5 

r 

C ORIENTATtON 31 DOWNWARD 

23 J-JM 
T*IO e Yf JO. * | 

TPfJ.LT.JN4I) GO TO 25 

t«fo?vr j.n) 

* 007.4 

«on?.i 

i;n yn »r 
C 

C OMENTATtON 41 TP T Mg L*PT 

24 *•*-> 

T • IU < ( J,* ) 

•PfR.Gf.WNIN) 60 TO 25 

W.WWTN 

J-JNA1-* 

T.TOETI l,*l 
WP0T-1 

*or2.» 

r 

C PfNrt AN AND AL 

25 A * • A 1 

A As A( T) 

TH 4»-A«)* 6 . 26.77 

26 AM.AA 
41*44 

GO T n 7* 

27 AMs A* 

At* A A 

C 

C CM?e* TO ScE IF A CONTCUS LINE AaSSF* Through THF INTERVAL 

f UNOPS CONS TD C * AT TON. 

*e *nofl-i 

DO 2« NVAl.NNIN.NNAI 
V4L •* C1NT ( N VAL 1 
G" Tn <37, 30), *008 
3? IFIVAL.LT.AL) GO TO 29 

* n OPa* 

i: TFfV4L.0T.AM) 60 TO 23 

C 

e '“NEC* TO SEE IF TM£ CONTOUR LINE NftlNT J'JST fftlWO IS A 

C NEW ONE. Ot THE TAIL *ND 0* ONE ALREIOT *OUNO. 

"ALL CHECK t ICHK, NXY.KOD2.J.K.NVAL.KOOO) 

I Ft K009.C0.<2) GO TO 2? 

C 

C OETEtniNE A1 AND A2 

TFfKft 07 .EQ.I.OR.k 00 7*10.4) GO TO 32 
A2*AA 
A 1 • AN 
Gfl Tn 13 
32 A ?■ A* 

AJa AA 

ENTER TN THE TRUES THE *01 NT JUST FO'JNn, 

NDUMaNAPfl)*! 




1»» 

199 

11 * 

111 

112 

113 

114 


11 ? 

lie 

U4 

I2t‘ 

121 

172 

1*3 

124 

125 
1*6 
1*7 
1 ?« 
12« 
13 ? 

131 

132 
13 * 
114 

135 

136 

137 
13 * 
130 
14 ? 

141 

142 

143 

144 
14 ? 

146 
14 ? 

144 

140 

t?r 

151 

152 
15 * 
»54 
15 5 

156 

157 
19 • 

15® 

16 ^ 

14 ! 

162 

163 

164 

165 

166 
16 ? 
16 ? 

149 

170 

171 

172 

173 

174 

175 

176 
17 ? 
17 4 

170 

150 

141 
132 

143 
134 

145 
1*6 

147 
156 

144 

190 

191 


c 

33 


C 

c 


36 


r. 

29 

2i* 

c 

c 

c 

c 


41 


42 


43 

C 

C 

45 


40 

C 

C 

c 

47 


40 

C 

C 

c 

c 


c 


56 


TFf ND*)N.6T. ISI 72) GO TO 35 
N AO I 1 I • NOUN 

^CALL ENTE»(K002. J.K.NVAL.A1.A2. JOIN. 3*»IN,ICM*. *004, X.T.NXT, ACONT, 

TFf*no*.E 0 . 2 ) GO TO 79 
N AO f NOUN) >N XT 

NOW FOLLOW U* THIS LEAD, JAIN THF LENGTH "* THE LTNJ, 
KODS-KOOT 
* 006-2 
JS-J 

*Sa* 

CALL W4LMK00S, JS.KS, A. JOIN* TCHK. JOIN, JNAY, KNTN.KN AX, *004. NXT, 

♦ ACONT. N0Q6*X,V»NVAL. ISI ID 

T*tK"04.E9.2) GO TO 79 
I F ( K005 ■ GT. * I 60 TO 36 

CONTTN'IF 

CONTINIIF 


PA*T 2t SCAN THE WHOLE FIELD fo* LINES that OONTT INTERSECT 
TH* ICP'NOAPT 
JE- j-AV.l 
«E-**A«-1 

*»0 k.k>tn,K 6 
laTOTVI JNTN.O 
A*a A f I ) 

pn «o J-J-IN.JE 
A1-A2 

00 44 *On?al, Z 
r.n Tn (41, 621, *002 
T c t J.E?.J»IN) GO TO 44 
T-in*'»| J,**i) 

A2 a A ( I) 
pn Tn 41 
T-IOFTf JAI.X) 

A2-AfTi 

1 e (K. E9.RMINI fO TO 44 
'ONTTM'jf 

FIND AM AND AL 
TFf A1-A2143, 45,46 

A Ms A ? 

AL-AJ 
CP rn 47 
AM- At 
Ala I? 

CH = e* TO SEE IF * CONTOUR LINE •'ASSES THROUGH THF InTE*VAL 
UNDE* consideration. 

*or*«i 

Oft 4* NVAL-NNIN.MM4X 
VAL-ACONTfNVAL) 
cn Tn f 49,?i) ,K008 
IFfVAL.LT.AL) GO TO 44 
tfftnas Z 

TFfVAL.PT. AH) GO TO 44 

WE HAVE FOUND A *OINT ftN A CONTOUR LINE, CHEC* TO SEE IF 
IT t« A NEW ONE. OR IF WE HAVE ALREADY "ON* THIS LIN«. 

CALL CMECKf ICH*.NXY,*002. J,*,NVAL.F0D9I 
TFf «nni,E0.2l Cft TO 43 

v« HAVE A POINT. ENTER JT IN T«i TR3LF3. 

NDUN*N A 0 ( 1 | ♦! 

TFfMDMH.RT. TSII2 ) GO TO 35 
M Aftf 1 1-MD(). 

CALI ENTER f *0ft2, J,K,NVAL,A1,A2, JN(N,*NIN, TCH*,*004,X,T, NXT, ACPNT, 

* ts?m 

I F f Kftft4 . EO. 2 ) GO TO 70 
NADfND'iN) -NXT 

now WAL* THE LENGTH OF THE LINF. 

*0O5a*OP? 

K0D6-? 

NXYSTaNXV 

JS-J 

*SaK 

CALL VAf KtK0D5, JS.KS, A, JOIN, ICHX, JNIN, JNAX.KNfM.KMA V.K004.NXV, 

• ACONT, *006. X,T,NVAL,ISII1) 

TFf *004. FO. 21 GO TO 70 

f F|K0D5.CT.(/| GO TO 5b 


NAP 

NR* 

NA* 

NAN 

NAP 

NAP 

NAP 

NAN 

N4N 

NAN 

NAN 

NAP 

NAN 

NAN 

NAN 

NA* 

"AP 

NAN 

NAN 

NAN 

• AN 
NAN 

NAP 

NIP 

•AN 

NAP 

NAP 

NAN 

NAN 

NAP 

NAP 

NAP 

NAN 

NAN 

NAP 

•AN 

• AN 
•A* 
NAN 
N*P 

• AN 
NAN 
NAN 
NAP 
NAP 
NAP 
NAP 
NA» 
NAN 
NAN 

nan 

NAN 

NIP 

NAN 

NAN 

NAN 

nan 

“AP 

NAN 


NAP 
NAP 
• A* 
NAP 

•A* 

•AP 

NAN 

NA* 

NAN 

NAP 

NA* 

NAN 

NAN 

NAP 

NAN 

NIP 

nan 

NAP 

NAN 

NAN 

"AN 

NA* 

NAP 


197 

193 
1*4 

195 

196 

197 

198 

194 
79C 
*J1 
292 

203 

204 
235 
*0 6 
207 
*08 
2J0 

2 1C 
211 
217 
213 
*14 

215 

216 
217 
21* 
219 
22? 
*21 
22? 
223 
*2* 
225 
7*6 
2*7 
*78 
**9 

230 

231 

232 

233 
*3* 

235 

236 
23* 
* 3 * 
*39 
74" 

241 

242 

243 

244 
*45 
*44 
74* 
*48 
249 
25 6 
*51 
29* 
25? 
254 

245 
256 
25* 
?5» 

239 

76P 
*61 
262 
*63 
264 
*45 
766 
26? 
26R 
269 
276 
*71 
272 
*73 
274 
2 ?5 


C 
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c 

IF THIS LIME IS * CLOSED C JR VE* CLOSE IT 4Y ENTERING FIRST 

nap 

276 

r 

►"TIT AGAIN. 

NAP 

277 


DIST-SOPTIt y(NXYST>-X<NXYHPB2MYCHXTSTI-V!NXYI l*P2l 

NAP 

?7« 


T*(ntST.CT.i,42» on TO 4* 

NAP 

279 


NXY-nxy.I 

NA» 

2Rp 


f F(N*f.r,T.TS! Z11 60 TO 60 

M» 

281 


VfNXY>>y(HXY$T) 

MAP 

242 


»CMXY)*Y|*iXYST) 

»AP 

24 3 


tCH«Il*NXY» »I CHKtl* NXYSTI 

"AP 

244 


t CHF f 2*NXYI .TCHF|2* NXYST) 

NAP 

243 


TC4XH*MXY)#trH4t1, NXYSTI 

M» 

!«6 


Trmn*,N»v)«?rNKU,Nx vsn 

NA» 

287 

c 


NAP 

25P 

** 

*0NTtNM« 

NA» 

249 

44 

C0NT*N*i; 

NAP 

290 

40 

CGNTT NU C 

NAP 

291 

f 


NAP 

2**? 

c 

E*T*P £MD 0* l»ST UN? IN 40TO<CEPMNG ARRAYS. 

NAP 

293 


NXV«NXV»| 

HAP 

294 

7.: 

NDHN.NAn!!) *1 

NAP 

293 


TFtNQiJN # GT«tSI22} GO in 3« 

NAP 

2«4 


M40*N^UN)-NiY 

NAP 

297 


go Tn 34 

NAP 


r 


NAP 

299 

c 

WRI™ -OPHR -ES$»P£S. 

NAP 

3»N 

35 

M»ITf I4,1J0) 

NAP 

401 

io 

f«rn*t!47h1 CONTOUR SEARCH ABORTED - TABLE OVFPF L n W IN NAO| 

NAP 



NADU 1-14*22-1 

MAP 

301 


no *n 34 

NAP 

104 

c 


NAP 

303 

9 

VRTTE!4,1JJ 1 

«4P 

304 

1 C 3 

'n»N4Tc:m,*5X#5( A -l*l»2X»2m£XECUTI0'l TcRN*N*TS0#2y*5C?n*W/ 

NAP 

117 


• 11 X# 44HARP 1 Y 0 e CONTOUR VALUES IMPROPERLY sp jC I F T FD ) 

NAP 

J4P 


ST0» 

NAP 

119 

C 


■AP 

11C 

*0 

W»TTEl6.1C4) 

NAP 

m 


*0 TO 

NAP 

312 

i '4 

»(1»MT| 4OH1CUNT0U® SEARCH AROPTFf) - TARLF OVERBLOW IN 

NAP 


C 


-AP 

314 

3* 

aET'jBN 

NAP 

115 


FKA 

NAP 

316 



SUBROUTINE NPKPIT«*,Y,X4F,YSF» 

NPtfPCT 

2 

C 


NPPPE T 

R 

f 

THIS SP4O0MTINE NARKS WIT- 1 SYMBOL ANO A IMTF9* A — H AND j-n. 

NRFPLT 

4 

f 

THnse »niHTS WHICH ARE TO BF FLAGGED ID *ACILITATS 

NP FPL T 

« 

C 

CRnss-R£*ERNCTNG BETWEEN the VAPinn$ oi"Ts fqr yp a JFCTOR y 

NRF*LT 

6 

c 


NPFPLT 

7 



nkplht 

p 


n T MENS* ON tllliTlil 

nrf*LT 

O 


OI-fNSTnM —ABF (12) 

NPFPLT 

It 

c 


NPFPLT 

11 


PAT A Nt’K/lHi, 1HR,1HC,1 MN i 1H*,1MF,.HG*IHH,;HJ,1HF,1ML,1HM/ 

NPFPLT 

1? 

c 


npfpl* 

13 


I F (N-AOFT.fcO. | RETURN 

NPFPLT 

14 


n° 123 T -1# n-ARFT 

NPFPLT 

15 


N.MARFT(I) 

NPFPLT 

1 6 


»••»( Nl 

•PFPLT 

17 


vp.VfNI 

NPFPLT 

IF 


CALL GPAFIXP. YP*,0S#3» 

NPFPLT 

19 


«0N>VPPL«r-7fXSF 

NPFPLT 

2F 


YCH.YP-.C4/YSF 

NPFPLT 

21 


C ALL CHAR(XCH,YCH,).t#« 8»NAR« 111*11 

NPFPLT 

?P 

i: 

.J CONTTYtre 

npf*LT 

23 


RETURN 

NPFPLT 

24 


FN* 

NpFPLT 

25 



SUBROUTINE PLOTCN 

PLOTCN 


r 



•LOTCN 


c 

tmt S 

ROUTINE CONTROLS THE DRAWING 0 c TH* PLOTS 

PLOTCN 


r 


■jrr PLOT SUIROUTtNES CALLED APE 

PLOTCN 


c 


0ASH»ENPLT>PL0T. 

PLOTCN 


c 



PLOTCN 


c 

*PIGT 

• l FOR VEIOCITY CONTOUR PLOT 

•LOTCN 


c 

l*L0T 

- ? FOP DENSITY CONTOUR PLOT 

PLOTCN 


c 

I PI IT 

• 3 FQP STtE*NtINE PLOT 

PLOTCN 

10 


C 


TPLOT • 4 FOR TEMPERATURE PLOT 

PLOTCN 

11 

C 


TPLOT p 5 FOR PARALLEL 4-fIELD COMPONENT PLOT 

PLOTCN 

12 

c 


IPLOT - 6 *0* PtiPFNOICULAP 8-FfELO COMPONENT PLOT 

PLOTCN 

13 

c 


T»L0T • 7 FQt NORMAL E-FIELD COMPONENT PLOT 

PLOTCN 

14 

c 



PLOTCN 

15 



COMMON / PLOTC/ C0NTXll3w)*CONTY«l03D1fCVALI30l .MAOIIOI. IPLOT 

PLOTC 

2 



r ON NON /BOUNDS / X40Dll0ei,Y4nfm&tfWYSHRI111l.YSHFC13C» , 

bounds 

2 



• NP-AX,NXN AX* ANACH, GAMMA, HP0,NHINDX 

ROUNDS 

3 



OOnoon /SCALE/ XSF# YS F* XNAX, YMAX, YLNGTH» YLNGTM 

SCALE 

2 

c 



PLOTCN 

19 

f 



PLOTCN 

20 

c 


•LOT STBEA-LINES 

PLOTCN 

21 

c 


THE c I0ST CUL T0 #l 01 INITIALITFS TH5 PLOT. 

PLOTCN 

22 

c 


SCALE FACTORS APE PQI'AL Tr» 1. 

PLOTCN 
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cm ta*!S(TTHFSF.T0FFST»TIN6TH.NTAYTS) 

CUL VA t ISt VSF.V0FFJT.VMF.nTS7E.il I 

CALL SrAlFiTMESF.VSF.il 
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CALL VFSTtT1FFST.V0FFST.il 
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c 


ORAM. LABEL, AND ANNOTATE R-AXIS (VERTICAL* 

PLOTT* 

155 

c 



PLOTT* 

156 



NTC-TNTf2.PRTHAXPl.0f 

PLOTT* 

157 



CALL AXI$(U.0»0.0»1M #3#RTNAX*TSF,-NTC. 2. *HN2» 

PLOTT* 

150 



•'H-l.J 

PLOTTP 

159 



"RCH2-1.C 

PL OTT* 

160 



XCH-.riFTSF 

PLOTTP 

161 


Zli 

CONTINUE 

PLOTTP 

162 



CAU NUP»lT(XCH,tC4-.&5/TSF,(J.C#9.1#RCH#l» 

PLOTTP 

163 



RCH«PCH*0RCH2 

PLOTTP 

164 



TF fPCM.tF.RTNAXI GO TO 215 

PIOTTP 

165 



XCH—O.BYTSF 

PIOTTP 

166 



PCM*PT"AXPy .I/TSF 

•LOTT* 

167 



CALL NATHf »CH,RCH, ,24 /TSF, 1,0,21) 

PLOTT* 

166 



XCN«XCN*0.16/TSF 

PinTT* 

169 



'ALL PinTtxCH4.55/TSF,RCH4,Z0/TSF,2l 

PLOTT* 

170 



CALL C^AR(XCH»RCH,0.C#.14,1HY,1» 

•LOTT* 

171 



CAU CMAR«XCH4.14/TSF,RCH*.11FTSF,C.3#.06#1M2#1I 

PLOTTP 

172 



TCN-XCH*t,2 /TSF 

PLOTT* 

173 



CALL CHAR(XCH,RCH,0.0,.14,2H*T,2» 

PL OTT* 

174 



CALI CH A» ( »CH*. 28/TSF, RCHa.il/TSF, 0.0,. 06, 1H2, 11 

PLOTT* 

179 



YCM.ycm.,33 /TSF 

PLOTT* 

176 



CAU C«»*<*CH,RCH,J.f , , 14, 2H/R, 2 * 

PLOTT* 

177 



tF (RPINT .IE. t.O* CO TO 219 

PLOTT* 

170 



*'H-YC4a,23/TSF 

PLOTT* 

179 



'All CHARIXCH,RCH,0.0#.06»6HPlANET,6t 

PLOTT* 

190 

r 



PtOTT* 

191 

C 


ORAM PLANET AND I ON OP AUSI , AND LABEL PLOT 

PLOTT* 

192 

c 



PLOTT* 

193 



CALL El I PS< 1.9*0. 0, 1,0,1. 9* 0.0, 0.0# 160. 9# 3) 

PLOTT* 

194 


215 

C ON TT NM F 

PLOTT* 

109 



XTNINMTNtNPRPINT 

PLOTT* 

166 



XTNAX-XTNAXPRPINT 

*L OTT* 

107 



PTNAX-RTHAXPXPINT 

PL OTTP 

198 



CAU PinT<0.5*0.0#3I 

PLOTT* 

109 



CAU SCAtF|TSFNi,TSFRO#l» 

PLOTT* 

19C 



no 221 1*1, NXH A* 

PL OTTP 

141 



tF (X9O0IT1 .CT. XTNAX) CO TO 23C 

PL OTT* 

192 



IF (VBIOm.CT.RTNAXl GO TO 230 

PLOTT* 

193 



n»ooy-t 

PLOTT* 

194 


22? 

CONTINUF 

PL OTT* 

195 


2 3j 

CONTINUE 

PL OTTP 

196 



DO 2*3 I-1,NYPAX 

PLOTT* 

197 



IF (XSNKII) .GT.XTNAXJ GO To 251 

PLOTT* 

Its 



TF fY$HK(Tf.CT.RTHAX) GO TO 25t 

PLOTTP 

199 



NSMOR.I 

PLOTT* 

200 


240 

CONTINUE 

PLOTT* 

201 


250 

CONTINUE 

PLOTT* 

202 



CALL VErTORtX0On#Y9OO*NROPY*l,l ,1H » 

PLOTT* 

203 



CALL VE f TO* IXSKX# YSHK,NSHOG,l, rf ,lM ) 

• LOTT* 

204 



XCH«0,5*(XTNIN4XTNAX»-1.C/TSFR0 

PLOTT* 

209 



RCH.-O.T/TSFRft 

*1 OTTP 

206 



'AU eHA»(XCH,*CM,9.0#0.2#TITlfl,U> 

•LOTT* 

207 



»CH*XCH.0.04/TSFR0 

PLOTT* 

206 



•CH«*CH-0.3 /TSFRO 

PLOTTP 

209 



CAU CHARIXCH#RCH,J.0,3.12*TtTlXR#16> 

PLOTTP 

210 

c 



•LOTTP 

211 

c 


PRAM <!#•) PROJECTION 

PLOTTP 

212 

C 



•LOTTP 

213 



CALL VECTOR (XTRAJ.RTRAJ»NTRAJ»l,l,lHXt 

•LOTTP 

214 



CAll NRKPITIXTRAJ,RTRAJ*TSF,TSFI 

Ft OTT* 

215 



CAU PIOT(XTNAX#0.0»-3I 

PLOTTP 

216 



CAU RFSET 

PLOTTP 

217 



RETURN 

PLOTT* 

210 



FNO 

*1 OTT* 

219 



150 


C 

C 

c 

f 

c 

c 

c 


*!>MCTtr)N QUAD (X, Y.f, XR,YR| 


ANO Y me THi COORDINATE ARRAYS AH') F TS HE FUNCTION ARRAY 

dimension xt*),rm,Fm 


Sl-Vdl-X(2 >+xm-*H> 

T 2 -V(D«t« 2 |.t( 3 |*V(a| 

T3«Y*ii-yi2 

T 4 *.Vin«TI ?UT( 3 t-Y( 4 t 
*-S2*T3-SJ*T2 
R*Tl*n*S 2 *TA.Sl*r:-.SA*T 2 
r-Sl*TA-S4*Tl 

*TA— (*«0|/f A«|.j| 

!! *CT* l.n ‘TA.ETA40/A 

YI-(Si*rTA*S2)/(S4*ETA*S3> 

0 '»AD. 0 . 25 *l»t|jMuo.tTA l * f UO-X I |*F| 2 »Ml,J- 5 TAIMl.C 4 Xf| 

fnd 


00 AO 
ou AD 

00 AO 
OUAO 
00 AO 
00 AO 
OUAO 
OOAO 
OUAO 
OUAO 
OUAO 
OUAO 
OUAO 
OUAO 
OUAO 
OOAO 
OOAO 
OUAO 
OUAO 
OOAO 
OOAO 
OUAO 
OUAO 
OOAO 
OUAO 
OUAO 
OUAO 

OOAO 

OOAO 


SUMOUTTNF RERUN RFRiMi 

CONNON /CONT/ NVCON,VCONI2}» P NRCON,RCnNl2'» C 5 NT 

CONDON /FIONA XC(2*»100 WVCt23,100t»VFl2r»lJ3l»RHnHEG»l<e) HON 

r O""UN /MLJNT/ THET4(23I,R*(23,25 I*NRI'Jmt »1>INT 

ievei ?* v «.w V J 0 „; 

CONNON/VCONR/ VY ( 20 » lOG I* VY(23*1DC I vCONR 

/bounds/ ynop(ib>;)»TRuo(ibctpy«H«(i;n # TSHKti30» ootYtos 

• NRNAV, NVNAY. AHACH.GANM A , HRO* NHINDX ROUNDS 

rnnmVH /DNSTRM/ ZRinT,NYFND,N7 ADO, NXRLDT ONSTt- 

LOGICAL LGRAV NU*00 

'■nMMOw/NUWjn/xmjO|,YY(UOI,NSm,LGRAV N.jOOO 

CONNON /MM/ ANCR, AN6NfNACON # Or ON(231 MN 

tOCKAl l»ERUN,LMFL,t.RRST,lRRCQ'4p|.RR'»lRinT»tT»A'l,|.RSTRT f> 0*T 

rnmmnn /FRO* T/ lREAUN,LRRFL.LRRST,lPRCON,tRRR,l RLOT,l TP A J,LRS TRT f*0*T 
CONinv /SMOCKS / DRSnX(103l»nST(5JI SHr^KS 

'OMNON / NKRIOT/ N«4RKTrM4RKT<:2) MKRtHT 

logical LRLTRJ trort 

ro*»*ON /TRORT/ IRlTRJpRRlNTpVINFpRHOlNF.TNRINtp 6INF TRORT 

COMMON /TRJDAT/ NT« A J, TTR A J ( Ui ) , *TRA J t J t}' I * Ttr 4 j f if«j 1 9 7TRA J ( I » TRJOAT 

I Y ;*t J .!^'»' VI I # * ,| l*3»* VYY «*J‘l r ^>#y2TRAJflC3lpTMRTRJflD9»p TRJO4T 

"TRAJ1 K?l,BYTRAJ(lbJ tpSTTRA J(10v I, M2TR A!( ICO > »ROTR A 4 tlOO>» TRJOAT 

• PTRAJUJjJ TRJOAT 

lOCICtl LSUM RONOAT 

0 ONMON /SMNOAT/ LSUN, XTBAJSd00l,TTRAJSd901#ZTBAJS(lcri, SOnOAT 

• RTRAJSdCCI, AZAMS, ROLANS, 6Y1,NY1,R7| S'JNOAT 

RE»UN 

OTNENSt"N RRfUJ* a e»,, M 

fOMTviiENCE (R*m»yvmi 

OTMfNSlON NKdOOl ,e ( „. 

DATA M'LANK/lH /, MSTAR/1H*/ RERUN 

S RE*UN 

C TMT 5 SUMCUTJNE READS OATA FROM TAR£4 (WRITTEN TO TARE6 ON RRR>JN 

A RRFVT0I1R RUN I TO ALLOW RESTARTING 0* THE RROGRA* USING RERUN 

f DIFFERENT CONTOUR VALUES* PLOT SITE* an*)/ 0 R MAGNETIC FIELP RE*’»m 

C ANGLE*, WITHOUT R£»EATINC TMf CALCULATION hr THE VELOCITY RERUN 

r ANO DEns I TT *IEins, M#UN 

C rerun 

*E ADt 41 NSLUNT,NRH4Y, ANACH4,«AM4,HR04 RFRtiM 

« A-CA--A I| r !H 

TF I A AS ( A*A CH— AMAPH4I .6T, 1.JE-9I GO TO 100 RFRUN 

IF (ARSIGAn-Ganr) * 6T* 1* OE-5 1 CO TO 100 RFtij N 

TF IHRO .LT, . AND* HR 04 *LT* J.3I SO TO 2 rsriJN 

IF lARSIHRn^RORI .GT. X.tE-51 60 TO 100 

CO TO s RERUN 

\ N*DO.(**(II,.R|tl*t-l*N«OGI RERUN 

3 CONTINUE 

NXNAV-NHUHT RERUN 

C RERUN 

RERUN 
•(RUN 


PRINT INPUT OATA 


V*TTF (6*11 J I ANACH.GAN 
IF (HROI 4*6*6 

WRITE (6* 214 » N6n0»(XX(II**RfII,I*l,NN001 
CO TO 0 
WRITE (6*216 1 
60 TO 6 

TF ILGRAV1 CQ TO 11 
WRfTF (6*216 | HRO 
fifl TO 6 

WRITF(6.219| HRO 
1 contthuf 
IPL OT— 7PL0T 
TF ILSUN) CO TO IT 
WRITF (6*2311 ANCP*ANGN 
CONTI NUF 

WRTT? (6.2331 LRERIjN*LPRFL*LPRtT,lPRC0N*LPR4*lPL0T,LTRAJ 

TF (.NOT. LTRAJI 60 TO 25 

RCRP-l.C/RPLNT 

WRITE (6*260 I L»LTR J.IORP* VINE* RHO INF. TNPINF 

T' (LSUNt WRITE (6*2661 PTNF.R«1, 8U*RZJ » AMNG, POL AN6 

WPITF (6*263 I NTRA J* HMARKT 

On 21 N.i.HTRAJ 

nk(N).«*iahk 

TF (NMARKT .Lc* HI 60 TO 24 

nn 22 t« 1 * n n arkt 

«aMAR«T(tl 

NKCKI.MSTAR 

rONTINU* 

WRIT* (6*2671 (N,NKlNI»TTPAJ(N|pyTRAJS(N|,VTRAJS(N1*TTRAJT(NI* 
• N«l, NTRAJ I 

rnwTiMur 
WRTTE(fc,24 rf l 
W*TT C (6*242 ) KVCON 

IF (KV-ON ,6T. Cl WRITE(6»25 a jI ( VCONfT I*T*1 *kVC0NI 

M PI T F (*» 2441 krcon 

I« (KRCON .GT. : I WRITF(6,2$;i (RCONdl* I>1*KRC0NI 

WP*T5|6,246I KRCON 

OTOR.. 9174J326252 

4NC R* 4NGP*0T0R 

4N6N.AN6NPDT0R 

TF »««rON . 6T . 31 VP1TF(£.253I ( KCOW(tl, T.l.KACONl 


WPlTf(t,233l (KCONd I.T-L.KACONI 


*nPNATC//2:f,25HINT?RPLANFT4Rr -ACH NO, «,Fs.2 
'//2*I*21HS*ECIFK HEAT RATIO «*F6.3I 
e 0RNAT(//2 v X,46H0NSTACLr GEON£TRT« US€R-SUP»LIr 0 COOROtNAT*S 
T4*TH P0 T NTt//33V*3HV/0*llV*3MP/n/ 
dPy»FR.4»6V*F6*4ll 

FORMAT! //23X.49HORSTACLE PEON«TRTI DEFAULT NAGNETOPAUSE f OOROIN AT* 
2lHrS - EQUATORIAL TRACE! 

FORNATI //2^K*46H06STACLF GfcOMETRYI DEFAULT IONOPAUSE COORDINATES* 
/* 36 V » 36HPOR CONSTANT SCALE HEIGHT WITH N/RJ>,C4.2! 

FORhat ( (tit *,T5M1RSTACLE GEONETRTi OeRAULT IONOpauS? WITH G*AVTTA 
TIONAL VARIATION FO* H/R:a*F4.2| 

yO»M»T( HZj y,4?HTERNlNAL 00 WN$ TRE AN LOCATION FOR RLOTTI N6* V/Rl>* 
F6.2I 

FORNATI itZ jX* 5.THUSER SPECIFIED nsyiATION IN SOLAR WINO CDnROtNAT'S 
/23X *47H0F MAGHETIf FI £1 0 S TNNfT*T-PL ANC CDNRONFnT *R0r, 

17H FLOW OIRECTTON -*FT.2,6H OFG*EE* 

/ /?0X*5D M US?R SRFCIFIED OEVIATIPN T* SOLAR VINO CO^rdinaTFS 
/ 2:y#3FH0 F MAGNETIC field FRON MAGNfTIC SY-METRY RIANE •* 
*T.2,RH DEGRFESI 

FORMAT! //23K*6HlRFRUN •* L2 / /20Y *6HIPRFL «*L2//20I* 6HIRRST «*L2* 
F/2- V*6HLRRC0N • *L2//20 Y»6HlPRR • *L2 ft 20Y * 6HLRL0T *,l?* 

//?9X»6HLTRAJ >*121 

*ORna Y f 1H1//45V*47N VALUES SRECIFIEO Ff» CONTOUR CALCULATION/ 

49 Y. 40 ( 1 M— ) | 

FORMAT! / ///2JI*I2*26H CONTOUR LEVELS F«R VILOCTTYU 
F0RN4T(////23X*I2p26H CONTOUR LEVELS FOR mknS HYi l 
FORMAT! ////2wX*I2»44H CONTOUR LEVELS *0» NAGNEYIC FI5L0 STRENGTH* I 
•OR MAT( /(13X.6F 10.31} 

FO»MAT( /20K* AHLPLTRJ -*12/ 

1M1 r/3CV*32HtNFMT FO* TRAJECTORY CALCULATION/ 

30R.32 HH*)//// 

/ 2wY*3*HRC/RRLAN€T «*FR,4/ 

J 20 X* 34 HINT ERR LAN START VELOCITY -1*711.3/ 

Z20Y* 34HTNTERRLRNETARV DENSITY ••F11.3/ 

/2r>X,34HINTERRLANFTABY TE«*ERATUR£ Eli. 3/ 

/2CY* 36HI NT ER FLAN FT ARY MAGNETIC FIELD I 
FORMAT! ////29X* 7HNTRA J •* t4«l»T*6HNNARKT ..()/ 

30V*46HI • • POINT TO ME NARKED FOR C«nSS REFERENCE I /// 

29X*1HN,6X»5HTTRA J*6X*9HITRA J.7X.3HYTRA J, ?Y»5H7TRAJ /I 
FORMAT! (29X*I4*1X*A1* 3X*F10*4, 5X*F6.4* 2(4X* FJ). 4 1 1 1 
FORMA T( 45X* 30Nf SUN-Rl A nET COORDINATE SYST«m|| 

FORMAT! 39 X»14H NACNTTUOE >*EJ1*3 
/35X,14HX-CON*0N6NT «*E11.3 



151 


• /35V. 14HY-C0NF0NENT -.Ell, 3 Rf»UN 

• /1SX.14HZ-C0HV0NENT -.€11.3 RERUN 

• //20X.29NA7IHUTMAL ANGIE ••111.3/ RGRUN 

• /2©*»29HP0liR ANGIE -,*11.31 RERUN 

C RERUN 

r rerun 

C *Eif) DATA GENERATED By RtUNT BODY COOE Rfi'IN 

C RERUN 

»E *0 f 4 > Ml.THETAm.ORSOM Jl. (Il.RMI, J»,T-1 .NRmax|.J-2,NBLUNT1 R ER'JN 

on 10 J-2.HUUNT RERUN 

RE40141 K.t Ii.VCI 1* J) ,YC(I, JI.VXll. JI.VVIT.JI.RHOFII, Jt »T-1 »N»N AY) RERUN 
1>. CONTINUP RERUN 

C RERUN 

C R * A 0 OAT A GENERATED BY MARCHING COOS RERUN 

C RERUN 

N7AHO-0 RERUN 

N7f ND-NUUNT RERUN 

♦’VI-HRlI'NT*! RERUN 

nfl 2*. J-NTT.1GD RERUN 

* I A 0 ( 41 Jl.Z.OtSOM J) RERUN 

IE 1 1 NT t E n * (511 .NE. G) EO TO 30 RE*'IN 

TE t*E(l,J-l) ,GT, IRtOTl 60 TO 3b RgRtlN 

N 7 Ann -NT AON RERUN 
00 2” T-l.NRMAX RERUN 

0 EA0(41 T:.VC(I*J|.VX(I »jlf vm. Jl*RNOEtI.Jl RgtMN 

»Ut, 11-7 RERUN 

2j. CONTINUE RERUN 

30 CONTINUE RRRIIN 

RETURN RERUN 

C RERUN 

C ®R I NT ERROR MESSAGE I* TIR£4 IS NOT The SAU CAS! AS RfRlJN 

C SRFCTRIEP IN CARD INPUT - RR0GRA* IS STOMPf* RERUN 

C RERUN 

1«J HBTT=(6»15*C,I AMACN.CAH.HRa, AMACN4.6AN4.HR04 RERUN 

Ifw RrR-ATtlMUlQX,5«HP»,2X.20NETECUTinN T'RMINATEO 2X.5 < 1H* 1 / /2«X , RERUN 

• 3 AHR ER'JN OATA ON TAR|A DOES NOT AOR £?/*«*. lONWt T« CASE » RERUN 

• * AMSR ECTRIEO ON CA*0 IN- UTi / /28I » A HM ACH NO, , 6 * » JUGA — A, ox » RER'JN 

• ANM/U //12X.10HFRQR CARDS»3l4X,fl0.4l /12X.10HFR0M TARE4, RFRtin 

• M4t.fl0.4ll Rf RtJN 

R T nff RERUN 

ENn RERUN 


RliRRO'JTTNP ROTATITNOl RQTAT 

COMMON /PIN/ AN6R,ANCN»MCON,9CrHt23) M* 

CONNON /TRJ9AT/ NTRAJ.TTRAJUlUl. XTRAJ1 190) . YTR A Jf 100! , ZTR A JUOOI. TRJOAT 

* VT* AJtlJO 1, VXTRAJ COM, VYTRAJdbC I. VZTi AJIU, »>• TNRTRJ df&»» TRJDAT 

* RTRimO;l,MTR4J<100l# MtTRAJdQOl.BTTRAJdCr 1 l.RQTRAJdOl' 1. TRJOAT 

* PT»AJflOO) T9 JU AT 

1 ndClL ISUN SUnoaT 

CONNON /S'JNOAT/ ISUN.lTPAjSdOOt.VTRAJSdOCl.TTRAJSUO: t. S'JNOAT 

* RT» AJSdOOl .AXANO.fOllNG.NXl.RYl, '471 SUNOAT 

C ROTAT 

C ROTAT 

C ROTAT 

T* (TNn.tT.O 05 TO 100 ROTAT 

f ROTAT 

C TRANSFORM TRAJECTORY ANH EREESTREAH 3-FT TL 0 COORDINATES ROTAT 

C TO SOLAR NINO CnrjRniNATE SYSTEH ROTAT 

C ROTAT 

T?NRA»-A7tNG*.C1743?29 ROTAT 

TfNRQl.POl ANGR,jl745329 ROTAT 

SA7-STN(TENRA71 ROTAT 

CA7«CnE(TFNPA71 ROTAT 

RRPL-STNITERROtl ROTAT 

CROL-CO<tT£H»Oll ROTAT 

Op 1 I -l.NTRAJ ROTAT 

XTRAJStI l-XTRAJI II ROTAT 

YTRAJMT1-YTRAMT1 ROTAT 

TTRAJ*(T1-ZTRaJ(I 1 ROTAT 

1 CONTINUE ROTAT 

OO 2 I-l.NTRAJ ROTAT 

tT*AJm-(IT*4J$fTI*C42-rmjSmRS4n*CRQt«TT«AJSIIIR$ffll ROTAT 

mijfTi-imjsm»iAi*imjEiii*c»i rotat 

7TRAJ (11— ( XTRAJS (I » *CA 7-YTR AJ 5 1 1 1 *SA 7) *S *01 WTR A JS (I l*CFOl ROTIT 

XTRAJttl— XTRAJII1 ROTAT 

TTR*jm— TTRAjm ROTAT 

2 CONTTNU* rqtaT 

C ROTAT 

C CALCULATE ANGN ANQ ANCR ROTAT 

C ROTAT 


127 

128 
124 

130 

131 
13? 

133 

134 
13? 

136 

137 


141 

141 

14? 

143 

144 

145 

146 

147 


RX-tRXlRC4T-3YlRSAZl*CROLRB71*SPQL 
4Y-RXl*SAZ»m*CAZ 
4 7 — iRtlRC*I- 8 nRS 4 nRSPOI>*U*CPOl 
M— •* 

BY— MY 

ANGR.tTANZt 9 Y.BXI 
A NGN- ATI NZ I Bf.SQRTf BX*B**BY*BV) ) 
RTOO- 57.295 78122 
ANCR-AN6RRRT00 
AnGN- ANGNM TOO 
RETURN 
C 
C 
C 

100 CONTINUE 
RETURN 
ENP 


ROTAT 35 

ROTAT 36 

ROTAT 37 

ROTAT 3 R 

ROTAT 39 

ROTAT 40 

ROTAT 41 

ROTAT 4? 

ROTAT 43 

ROTAT 44 

ROTAT 45 

ROTAT 46 

ROTAT 47 

ROTAT 43 

ROTAT 49 

ROTAT 90 

ROTAT 51 


14R 


149 

PIJNfdON RRlNFtt.JI 

RRINf 


150 

C 

RRINP 


111 

C THIS ROUTINE CALCULATES R/RINP AT THE (T.J) C,MD POINT 

RRINF 


152 

c 

RRINP 


153 

CONNON /ROUNDS/ XBQOtlSri.rBIOtlBbMlHECllliTSHMmi, 

BOUNDS 


154 


BOUNDS 


IS" 

CONNON /FlOtf / XC (29.100 1» VC C 2). ISO ) ,VF ( 20,1 303, RM0F I2C . 100! 

PLOW 


156 

LEVEL 2. XST.YST.NIJNST.NST 

STREAN 


157 

CONNON /stream/ XSTtSC. 152). TSTI5C, 1521, NU-STt50),NST 

STREAM 


158 

C 

RRINF 


159 

C TF POINT TS ON SHOCK BOUNDARY R/RINF-1.0 

■RING 

10 

160 

C 

RRINP 

11 

161 

IP (I .LT. NRNAX ,ANO. J ,r,T. 1) GO TO 19 

RRINF 

12 

167 

RRiNP-i,r 

RRINF 

13 

163 

RETURN 

RRINP 

14 

164 

C 

RRINP 

15 

165 

C BRACKET POINT BV TWO STREAMLINES 

RRINP 

16 

166 

r 

RR IN* 

17 

16T 

1» CONTINUE 

RRTNP 

IB 


*•»«!• J» 

RR IN* 

19 


T-YCU.J) 

RRINP 

2*» 


•2-0.0 

RRINP 

21 


00 li JST-l.NST 

RRTN* 

22 


NN.N'in*T|JSTI 

RR INF 

23 

2 

00 30 R-l.NN 

RRINF 

24 

? 

IP t»ST{JST,K) ,GT. X! GO TO 49 

RRINP 

25 

2 

32 CONTINUE 

RRINf 

?6 

3 

n-NN 

RRINP 

27 

4 

43 CONTTNUE 

RRINF 

2 R 

« 

J2-JST 

RRINP 

2« 

2 

Jl-JST-1 

RRINP 

30 

• 

* 1- R? 

RRINP 

31 

4 

TP (* .€9. 1) R2*rST(J2,ll 

RRINf 

32 

6 

TP 1* .GT. 1) R2-YSTI J2,K-ll4(X-tST(J2,K-in 

RRINP 

33 

7 

• •tYSTt 4?,K)-YST< J2.K-UI /(XST( J2.K1-XSTT J2.K-1)! 
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LEVEL ?, *S T, YST.NUNST, NST 
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C REVERSE SIGN OF 1ST FOP 0UT*UT 

C 
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nn-numsksi 
00 2 J*;#NN 
2 *ST(Y,J1— XST(K»jl 

c 

C STPEAHtNES FOP PAGNETOS*HE«E 
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VP T Tf (6 » 603 1 NST 
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VPTTE(6*6lJl K*VST(K#l),VST(Kfl 1 
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ST^IT 

2 

*TO«»t 

2 
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11 continue 
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4 CONTINUE 
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CONTINUE 

TAXIS 

AJ 



BMlN-0.0 
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'mum* sm 6 n 

109 COWTTWUE 
C 

C OUTPUT TRAJECTORY 1 Mf 0* NATION, AND CREATE HOTS JF REQUIRED 

CUL TPOUT 

i* (.not.lpltrj) «a to zso 
call plow 
cm nnTM 

2CJ CONTINUE 

RETURN 
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TtAJEC 

TtAJEC 

traiec 
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SUBROUTINE TtOUT 

C THIS SUBROUTINE ttINTS THE Tt* JECTOtt C n lRDINATES ANO THE 

C FLOW FIELD AND HAGNETIC FIELD CONPONENTS ALONG THE Tt AJ FCTORY 

C AS TABLES WITH TINE AS THE REFERENCE QUANTITY 

* OHH1N /RtN / ANCP, AN6N, MCON, AC 0N( 20) 

CON NON /FOUNDS / XSOO(X9CI#TNOD(19C ) , X S HK ( I'M) , YSHK ( ltC ) , 

* NM AX, NX* AX, AH ACH, 6 AHHA, HtO* NHINDY 

LOPICAL IPERUN,LPRFI,LPRST,LPRCON,1»QB,LPLDT»ITAAj»|RSTRT 
CONNON /t«OFT/ LtERUN,LPRFL,lPRST»lt«CDW,LPt*»lPLOT,LTR AJ,LR$TRT 
CONNON /T>JDAT/ NTRAJ»TTtAJU5p|#XTtAJI 15 j),YTt AJtlCOW ITtAJIHCI* 

• VT* AJ( 100 1 • VXTt AJ I 100 ), VYTRA J(10C I, VZTR AJ(109 ),THPT* J (ltD ), 

• ATRAJ(133l,BXTRAJ(lG0),BVTR*J(lC0),AZTPAJ(UO),toTRAJ(Ha), 

♦ RTRAJflOD) 

LnfilPAL LPLTRJ 

CONNON J TtOPT/ LPLT*J#tPLNT*VINP,tMOTNF,TNPtNF,NlNF 
LOPICAL ISUN 

CflNNOH /SUNDAT/ LSUN,XTtAJS(10b),VTRAJS(100),7TftAJS(ll‘C), 

* *Tt AJS(10C)«AZAN6,POLAN<;.*Kl»*Vl,Nn 
"I«FNSION VXTPAJS(IOO), VTTRA JSI130 1, VZTt* JS ( 100 1, AXTR1 J S(lD3) , 

c • BTTtAJSU00J»NTTRAJm09I 

C W* IT* COORDINATES *s A FUNCTYON OF TT HE* 

C TN UNITS OP BOTH *G AND tPL AN£T 

•NOSE-l.C 

TF (R*LNT .GT. 0.0) PNQSE*UO/RPLNT 
HPTTF (6» 1 3l)0) 

W*TTE (6,10011 
WRITE (6, 1103) RNOSE 
WRITE (5, 13001 
00 29 N.lfNTRAJ 
T*FLNT>*TRAJ(N)*tNDSE 
YRRLNT-YTRA JINMtNOSE 
’R»LNT-?TtAJ(N»*tNOSE 
ttPLNT.RTPA JINJRRNDSE 
IT«ITRAJ(N) 

WRITE(6,2J3J) N,TTR AJ(NI»IT,YTtA J( NlfTTRA J(HI, RTPAJ (HI, X*PLNT» 

• TR*LNT,ItpLNT,RtRLNT 
21. CONTTNUE 

C 

C WtTTF OUT FLOW Fif L f) A N0 HAGNETIC FIUD CONTINENTS 

C NOH-OINENSIONAl WITH RESPECT TO Ft EE STRFlN 

C 

Wt TTE ( 6, 1 3uC) 

WRITE <6»1H'1) 

MRITEC6, 1*001 
V*ITMA,!»OI 
Dn A9 n-i.ntraj 

WRITE (6*2100) N, TTt A J (N ), VTRAJ (N) » VXTt A J (N)» VVTRI J (N), VZT* A J(N) , 

* ROTRAJ(N) *TNPTt J ( H) , BTR AJ ( N) , RYTRAJ (N) , BVTt A f( H> , BI TP AJ (N ) 

AO CONTINUE 

C 

c WMTE OUT FLOW FTftD AND HAGNETIC FIELD COMPONENTS 

C OINENSIONALIII BY INPUT FREE STREAN VALUES 

SANGN>STN(AHGN) 

CANGN-CDStANGN) 

S ANGP-SIN(ANGP) 

CANRP-COS(ANCP) 

yo.«tnf*cangn*cancp 

yo«*inf*c*ngw*sancp 

zo-rtnfrjangn 

WRITF(6,11D0) 

WRITE (6,1001) 

W*ITf (6,1630) 


TROUT 

▼ROUT 

Tt»IT 

TROUT 

TROUT 

TROUT 

•IN 

ROUNDS 

•O'PIDS 

PRfJRT 

PtDPT 

Tt JO AT 

TRJOAT 

TtJDAT 

TtJOAT 

TRDRT 

IPOPT 

SUNDAT 

SUNDAT 

SUNDAY 

TPOUT 

TtmtT 

TROUT 

TtDUT 

TROUT 

TtOUT 

Tt DMT 

TRWT 

TROUT 

TROtJT 

TR OUT 

TROUT 

Tt out 

TtO*lT 

▼ROUT 

TtrvtT 

TtnuT 

TtOUT 

TROUT 

TROUT 

TtruT 

TROUT 

TtOUT 

TtWT 

TRfVIT 

TtOUT 

TtntjT 

TRfFJT 

TROUT 

TROUT 

TROUT 

TROUT 

TROUT 

TROUT 

TROUT 

TROUT 

TROUT 

TRWT 

TROUT 

TROUT 

TROUT 

TtOUT 

TROUT 

TtOUT 

TROUT 

TtOUT 

TROUT 


10 


e 


C 

c 


c 

r 

C 

c 


c 

c 

c 


C 

c 

c 


WRITE (6, 1790) AHACH, C ANNA, • INF, V (NF, ID, tHOlNF, YQ, TNFINF * ZO 
V* TTE (6* 1830 ) 

DO 6G N-1,NTRAJ 
VOTN.VTRAJf Nt*VtNF 
VXDlN-YRTRAJ(N)tYlNF 
VYniN.VYTPAJ(N)*VINF 
VIDIN-VITRA J(N)*VINF 
RHOO?N»tnTR AJ (N)tRHOINF 
TttDIN.TNPTRJ(N)tTNPINF 
RDINsRTVAJI N) PR INF 
RYDtN«RVTtAJ(N)*itNF 
• YM«>RYTPAJ(N)*RINF 
RTDIN»RTTRAJ(N)tBINF 

WRITE (6, 22j t) N,TTRAJ(N),VDIN,VXDIN,VYDTN, V*Df N, RHODEN, TNPPTN, 
♦ BOTH, RXPIH, BYOIN, 37DTH 
63 CRWTINU5 

IF (LS*tN) GO TO 70 
•FTUPN 


TPANSFORN OUTPUT QUANTITIES TD SUN-PLANET COORDINATE SYSTEM 

73. CONTINUE 

DO 75 N*1,NTRAJ 
«TRAJS(N)*«TRAJS(N|tRPLNT 
YTR AJS(N |«YTV AJS (N ) *P PINT 
’TtAJSINWTRAJSINItPPLNT 
T5 '“ONTTNIIF 

T c NPATaA?ANGP s 017A532Q 

TENtni-FOLANGt,0ITA532« 

<AT-SINCTE"PA2) 

CA*-COMT«nP47I 

SFOL-TtN(TENPOL) 

CP0L«C^S(TEn*OL) 

DO «o N.1,NTRAJ 

RTPA IS( N) *S QRTtTTRA JS (N)*YTP AJS (N|t*TPA JS (N| PTTtAJS(N)) 

WTTRA JS(N).-C4ZPCPOL*VXTRAJ(N)-SAMVYTtAJ(N|-CAZ*$ROL*V7TPAJ(N) 
VYTRA JS(N)-SA2tCPOL*VXTtlJ(N)-CA7tVYT»AJ(NI*T»I*SEOL*VITPAJ(N) 
VTTPAJS(N».-StOLtVXTfAJ(w)tCP3LtV7TRAJ(N) 

t*TRA JS(N).-CA7tCP0L»BXTR A J ( N) -S A 7‘ATTt A J ( m -t A Z*S POL*N TTt a J ( N t 
•TTPI JS(N)«SAZ*C POL RBXTPA J( N|-CAT*AYT* A J (N) tS AT*SPOl*tTTt A JtNt 
N»TtAJS(N)—S»OL*S»TtAJrNj*ctOl*B7TRAJ(N) 

S3 cpnttnu? 

*nS»-C»TP**»OLPxO-S47tYO-CAMSPOl*?0 

V0S«SA7*CP0LtX0-CAZtY0*SA»tSPaLt»0 

7ns..t»oi*XO*CP0Lt7O 

WRITE COORDINATES (V,Y,?,R) AS A FUNCTION OF TINE 
IN UNITS OF NOTH RO AND RPLANET 

WPI T E (6,1303) 

WPlTf (6,1302) 

WtITE (6,1103) PNOSE 
W»ITE (6,1200) 

Df RC N«1,NTRAJ 
*»HTS«»TRAJS(NMRNO$E 
▼■PITS-TTRA J5(N)*RN0SE 
TPPLTS-7TPA JS(N)*PHOSE 
PRPLTS«PTPAJS(N)tRNOSE 
XTS«XTtAJS(NI 

WPTTt (6,2t,by) N,TTRAJ(N),XTS, YTPAJS(N) , ITPAJSf N) , R Tt A J S ( N ) , R» »L TS 

•» TRPLTS,IP»LTS,RPtLTS 

«» CONTINUE 

WRITE FLOW FIELD ANO HAGNETIC FIELD CONPONENTS 
NON— DI HfNSIONALI 7ED WITH RESPfcCT TO FRfiesTR!A«* 

WRITF (6,1300) 

W*ITE (6,1002) 

WRITE (6,1*09) 

WRTTE (6,15l>0) 

DO 05 N«l,NTRAJ 

WRIT* (6,21G9) N,TTRAJ(N),YTRAJ(N),VXTRAJS(Nt,VYTPAJS(N), 

* VZTRA4S(NI,RQTRAJ(N),TNPTRJ(N),STR6J(N),I|TTRAJS(NJ, 

• BTTR AJ$(N),B?TRAJS(N) 

95 CONTINUE 

WRITE FLOW FIELD AND HAGNETIC FIELD CONPONENTS 
OIHfNSIONALIZSD BT INPUT FREESTREA* VALUES 

WRITE (6,1300) 

WRITE (6,1002) 

WRITE (6,1600) 

WRITE (6,1700 ) ANACH,6A"HA,HINF, VINE, XOS,PHOIWF,YOS,TNPINF, »0S 
WRITE (6,1701) AZAN6, POL ANG 


TROUT 

61 

TROUT 

61 

TRftJT 

63 

TROUT 

6* 

TROUT 

65 

TROUT 

66 

TROUT 

67 

TPOUT 

6' 

TROUT 

69 

TROtJT 

■»(* 

TROUT 

71 

TtOUT 

72 

TROtJT 

73 

TtO’JT 

7 A 

TtOUT 

75 

TR nur 

76 

TROUT 

7? 

TROUT 

?• 

TRWT 

79 

TROUT 

5D 

TROUT 

81 

TROtJT 

• 2 

TROUT 

• 3 

TROUT 

9* 

trout 

S 5 

TtOUT 

S 6 

TtOUT 

S 7 

TROUT 

M 

trout 

SO 

TtWT 

90 

TROUT 

91 

TRD'JT 

92 

TROUT 

93 

TPOUT 

9A 

TROUT 

93 

TtOUT 

96 

Tt OtJT 

97 

TtOUT 

OS 

TtOUT 

99 

TtWT 

ISC 

TtOUT 

101 

TtOUT 

102 

TtOUT 

133 

TROUT 

IS* 

TROUT 

105 

TtoiJT 

1S6 

TRO*tT 

1ST 

TtOtIT 

IDA 

TROtJT 

139 

Tt OUT 

110 

TtOUT 

111 

TtOUT 

117 

Tt OUT 

113 

TROUT 

ll* 

TtPUT 

115 

TROUT 

116 

TROUT 

117 

TROUT 

ltA 

T»WT 

119 

Tt OUT 

1?C 

TRWT 

121 

TROUT 

122 

TROtl* 

1*3 

TROUT 

1 2* 

TROtJT 

12! 

TROUT 

126 

TROUT 

127 

TROtJT 

1 2 S 

TROUT 

120 

TROUT 

ISO 

T»rm 

IS1 

TROUT 

132 

TROUT 

133 

TROUT 

13* 

TRWT 

135 

TROUT 

136 

TROUT 

137 

TROUT 

13 B 

TROUT 

119 

TROUT 

i*e 

TROUT 

i*i 

TROtJT 

1*2 

TROtJT 

1*3 

TROUT 

1** 


10 

>0 
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WIT* (6.16J91 

00 100 N«lfNTAij 

V9I«*VTR*J(NI*VIHF 

VIAtRtVITIIJf{Nt»VlNF 

ovntRivmusiNitviNF 

V70IH-V»T**JSIM)*VINF 

mnOTn-tflTR W<NIM-«0TNF 

TK*oT*»-T»*iijjNi*rn*iNf 

RDtn-^Tp*J(MI*5!MF 

«Y0T«.*YTRA JS »Ht MINF 

«V0IH.tYTtftJSt41*ni«F 

vRTTf N.TTRA Jl N),VPTN* Mpn. Vyoth, vrni ■srhOOIH.Tnpijin, 

• PDlN,6Y'J!*,&Y*>I*,*»''t* 

1C r. roNUn'if 

IF (.NOT* l»LT«J1 r,n TO 2r C 

c 

c transfer* component data rn sun-planet r-n«niN*T*s 

f 

on 1*9 n-wntraJ 
v*T»4 It M*VYTRAJSIN) 

VTTRAJIM*VYT*AJ5(N1 
MTRAJtNI-VZTRAJS (SI 

RVT»A J|N)«*VT»4JS|Nl 

R7TR4 MN|**7TRAJS(N] 

Hj. raNTtytg 

20,, 'ONTIMU* 

»f TIJ*N 

C 

130 RORNATf 1H1* 5?X*22HT*AJ:CTr]*r * ALCl'l AT »0N t* 1 '•’?<_ v* 1 1 
1C01 e 0RN4T t 5 Y , 3^ H( SOL AP VINO mtOFNlT 5 ♦TJT'III 
i}» throat 1 5. Y,3um«'iv-P14NFT C'nflptNATR SYSTEM 
liro **'•'*• XI /i/53<*22 M T , #4JECT0*Y COOROlNATtSMI*. ? 2 f . v- ) 

* //*7»tl»H*3y*H4McT •*FP,*1 

• rOO*»4tt / /*Y,lHN f 7Y* *HTTN; f 9Y,*HI/Rt » 7 * * * A Y / R .. f TY,*H7/R"* .TX.AHR/R*, . 

• B¥,o^*iRPLA*tT,2Y,9HY/RPl4NET,2X # <J>4*/RRlAN = T, jv, Own /o *i amcT /» 

131* "*RNAT( MU /16I.A6HFL0V fJClO A*!0 "AnNETtC *1-10 eV^UNAKT* IP'K. 

• 1H T »4 jeCTn9YM a * # 5T<|H-n 

i*. * *nRw*T( mcx,*6V(non-oin;nstonu TY i r '» tmy.- rrlan* tipy valu-sii 

J3‘. 4 «nP*»ATt #/4Y,*HN,5X« *HT T »e.7«#6HV/VJ‘tF, 5«* 7-IVX/V t**F , At, ’HVY / V l *f , 

* AY, 7>4V Y / y tNf»?X*l /HRHO/PHUfNR* ;X,;1HT :n»Mnpt if , >*, b H»/»TNf,3 Y, 

• YHRx/pTNF^AYfXHPYyMMPiAXfXnnr/ptNP/i 

Iff) f rR«4TI / *1Y , *8H(0IH* NS IONAL* USTNC IiRiJY TUT • C » L AN { TAR V VAIU*SI1 
:7l* *ORNATt tl 1«,3CHTNTE*P14NETARV N4CM N'JNRtR -* C T.2,EY, 

* »OMlNT£RPL*NETARY NAANiTIC »I?17P2.Y* 

* 30MOATT9 0* SPECIFIC HF4TS • • « • . 4 » 9 Y, l 3 H" Aft NT TUOf ,, 

* e l('.3F20I#3j l TINTEPPl4N*T4PY V'in'TTY •• 1 »r 1 7«, 

* UMY-CO^PONcNT vUCil^.lf 

* 3CMINTr«PL4NCTAPY nfHSlTY 3# ?Y, 

• :3^Y-Pr|npOiSNT -.EU.SMSY, 

* H J lNTt»*l*NtT*BT YEMJUTU*- 

• l?H7-Cn«PnS£NT »»f 10.3) 

"IHATt Jl Y, 3^‘T*7IN'JTH4L ANGLE *,F* .3 

• »?CY. 30MP014P 4 NGl f «»F* 4*31 

i*{ tn»« 4 T f / 7 4Y * 1MV, 5 Y* *HTT “E#8*#3N/V/»1x»?HV».ot.3 HVT, C * , ? r, RY, 

• 3H<nn, TX, 4HTc*P.*Y# 3H /a^SY*? MR ¥,H,7H*Y,7V, 24*7/1 

?3'7 cp*«4Tr)r.n.3<,rn.*,2fJ*,B|.4*3r?t,M.4m 

a- • c f iB * , 4Yn»,t*,i*,Fij.A#if(3«,F3.An 

22. ' PnPP»TllY»* **lY,F13,*,i*,lPl„ell.3) 

C All 


TROUT 
TR OUT 
TR OUT 

trout 

TROUT 

TROUT 

TROUT 

TROUT 

TROUT 

TR* 3 t|Y 

TROUT 

TROUT 

trout 

trout 

TR PUT 
TROUT 
TROUT 
TROUT 
TROUT 
TROUT 
TRPUT 
T* H|IT 
TROUT 
TR^UT 
T»OUT 
TROUT 
T# rt*lT 
TROUT 
XRO'IT 
TROJY 
trout 
TRoijt 
TR PUT 
TROUT 
T*0!IT 

trout 

TROIJT 

T«"UT 
TR 0U T 
T#"HT 
TROUT 
tro»»t 
TRO"T 
TROUT 
TP out 
TR0<IT 

TROUT 
TR^UT 
TROUT 
TROUT 
TROUT 
TR OUT 
TROUT 
TROUT 
TROttT 

T»TI T 

TROUT 

TRO"T 

TROUT 

T»omt 

TtntiT 


SURROUTTN? V4*ISlWS f # VU'FST, VINF.Pl TS*F # LV1 V4Y»S 

C V4YJS 

C SURROUTIN* V4YM r*tC'U.ATfS THt P4R4HSTtPS R*TITRr? FOP T4« V*»»S 

C Vf *TT C 41 4»IS «0R THE TR 4 JEC TOR Y PLOTS* THEN ?R 4WS »N0 ViXIS 

C L4X£LS TMe AMS. IV T*0ir4TES pr l* MHirn roR*OHcwT THE VA«»S 

C 4 f fS TS *«0UTR<3. TT IS 4SSUHEP That tms x.y.t f Orr ON f h TS V4YM 

r »RH;nT4T£LY FOLLDV Tut n aCH I TU pf PLOTS* ANO TH* PAP ANfTf R$ VAYTS 

C *•? HOT Rf-P*LC'H*T:% va»TS 

C VAMS 

0 AT A RIOH?/ l*f T(»7R63 / VAYIS 

C VAYTS 

C :Alt*ULAT= PARAHlTeRS* THEN ORAV AMS WITH T»r«< -APRS VAYIS 

c VAMS 

iF-ivn- vayis 

1 CONP *L V-17.*LF*1 VAYIS 

I * (LCOHR ,GT. II GO TO 13 VAYIS 

CAll SFOFF|lF,VlNF,PLTS7£,VSF,V0F*ST,HA*RTttY,AMN, AOEL.VPEU VAYTS 

li '•ONTfMur VAMS 


1 A5 
1*6 
1*7 
!*• 
1*R 
15C 

m 

152 

153 
15* 

155 
136 
157 

156 
15« 
160 
161 
162 
163 
16‘ 
165 
If* 
167 
16* 
lfo 

170 

171 
1 *? 
17 7 
HA 
?.T5 
1*»6 
177 
17 • 
x 70 
l«r 
5*1 
1*2 
) -1 
! * * 
n* 
1*6 
1 • T 
t** 
1*0 
!«■ 
171 
l«? 
173 
17* 
IV 
17 6 
1ST 

1 7 • 

. oo 

2 


2;* 


TALI AXIS ( 3 *9 * 9 ( 0* lH *1,PLTS2F,-NTTCY*2.P10N2» 

c 

C ANNOTATE AXIS* TO THE tEFT 

C 

TOH.-.?« 
vru.-,;5 
AC H*A*t N 
OQ 30 H «1 * H T I C* 

T4U NUNPLTITCH, VCH,C* j»-C.l» APH.11 

VPH-VCHRVOf L 
ICH.ACH* AOEL 
>3 CONTINMF 

c 

C L A *E t AXIS* ANO WRITE TITLE ON PLOT 

r 

vrH2-C.5**LTSZE 

TfM*«-0,g 

vru.RLTsr'R'-.T 

rpM«f ,o 

GO TO 1119* 12C* 133* 1*01 *L* 

* I * pohtikmc 

TALL ruAP(TCH2*VCH2*^#*.-.2.:HV.ll 
'“*1 L C-»4P«TCH*VCH* ).3*.2.6HVEL0C1TY,*1 

XCH«TCH*1.« 

ftn to 15* 

!23 PQNTYiUC 

'ALL c*<4 PtTCH2» VC ■*’»:•**■*• 2 *1H T * 1 ) 

'ALL CH4R(TC>*,VCH,.‘.L,.2*liHTe-B;*iTURE,ll» 
TTH-TtH*?,* 
no TO 1*9 
13. 'OHTTHHf 

r ill n»EEK t T'H2 . VCH2*r,?S*{**t*17* 

■#l| * > U4»ITr-4»VCM,o.C*.2,7HOENS»Ty*71 
TrH«TrH*i.t 

*0 TO Uf, 

*,*| '0»|TJMipp 

CALL n*B<TCH2*VCH2*< • »**>•?* 1H*»1) 

"»Ll <“H4*CTCN # VC“* l*.*»«!»i*«*APN5TIC *1*10,1*1 
r^M.Trn.3.: 

!f3 ^ONTYTI- 

PALL CAiPITCH.VCH*;-.; » » 1 * ?HVS, 2 J 

'All -‘■ilPfTPl, VCH,3,f ,,2, *HTI <4^,41 
** (l e .-*0,? .0** LF.E0.31 GP TC 3C: 

TCH1* -.6 
vcm: ■ »l tstp ♦ 

no to r*13. 220. ?3J» ?*0)*Lrn**R 

r 

? r0NY*N'»r 

'ALL CH4MTPH*,Vf -«I#t ,U»« 1**1! HINARH* runs i,m 
'»Ll “t Tint TCM2- V ..5 # VCH2* TCH2-. l.V'HV.M 
'ALL BLTLHt T'HJ*. .1 *, VCH2 ,TCH?r;.i *,VCH2r *»1 
n n To 3CC 
r 

2 2 • ■P*>'7*UMf 

'Atl 'H4RITrHl,VCHl,C v 9*»l*,l 3HtX-r3H»ON*NTl,l* ) 
'iii cuAPiY'H?R0#;3»vcu2-eR95*: .3,c.:*;hy.i i 
no TO 3*0 
r 

??> 

'ALL 'MAR»TCU1,VCH1,C#&*.1**13H< Y-C9«P0H7NT»,M » 
'ALL C'»AR(TCH2Ri,13*VCA2-0..-5,.. J,«*« 1, 14V, 1 1 
GO To JuC 


6 


10 

11 

1? 

13 

1* 

15 

16 
17 
IP 
1* 


C 

c 


fOMTtM.j* 

'All o M1 .,tch:,vch1*w ;,*1*»13HT T-C0HP0H«HX1* 131 

'All 'HARf TCH2 rv*;3,VC42-«,95*C*.1,y.1,1H»,:i 

#oo »;**h scaling factor if pe 0U j*ift 
3CJ 'ontIHi*' 

I c IHA .EO. >1 GO m 35«- 
t^m*.*, oo 

V'H«V1H>-* .36 

'AH ouap(TCH* VC M* v . . ,.l,26.1HX*lt 

'All CHARf TCH4C.I'*, VCH,f».G*3.12,2H10.21 

t CH»TCN*5,3; 


YHA-CLOATINAI 

CALL NU*APLTITCH,VrHR.H,0*C*.36,XNA,-l1 
3 5*. CONTI NUf 

return 


f NO 


VAYIS 

VAYIS 

VAYIS 

VAMS 

VAYIS 

VAYIS 

VAYIS 

VAMS 

VAYIS 

VAYrS 

VAYIS 

VAYIS 

VAYIS 

VAYIS 

VAYIS 

VAYIS 

VAYTS 

VAYIS 

VAYIS 

VAYTS 

VAYtS 

VAYIS 

VAYIS 

VAYTS 

VAYIS 

VAYIS 

VAYIS 

VAYtS 

V**IS 

VAYIS 

VAYTS 

VAYIS 

VAYTS 

VAYIS 

VAYIS 

VAYTS 

VAYfS 

VAMS 

VAYTS 
VAYI S 
VAYIS 
VAYIS 
VAYTS 
VAYI« 

VAYTS 

VAYts 

VAMS 

VAYIS 

VAYTS 

VAYIS 

VAYIS 

VAYTS 

VAVtS 

VAYIS 

VAYTS 

VAYTS 

VAYTS 

VAYIS 

VAY»S 

VAYIS 

VAMS 

VAYIS 

VAMS 

VAYTS 

VAYTS 

VAYIS 

VAYIS 

VAYTS 

VAYTS 

VAYTS 

VAYIS 

VAYTJ 

VAYJS 

VAYIS 

VAYIS 

VAYIS 

VAYTS 

VAYTS 

VAYTS 

VAYIS 

VAYIS 1 

VAYIS H 
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‘UNCTlT* VI NTPP ( Y* Y ) 

THT^ FUNCTION INTER POL A T ES FOR V *T (X.VJ e RQM T HE G , TP V ALUF5 

/BLUNT/ THETAI79 l.*P (22. 29)#N4L'INT 

/RPUNOS/ T81D( IOC) « V6P3 ( IOC) #»S HM i;,3 | , y SMK ( 1)0 1 , 

* "*•*»»» **XMA» , ANACHbGANMA.HRO. NMIHO* 

fOMHQN mow/ XC(2*»lCJ1 t VC(2j«l3CWVM21»i'Y| t 9MnF(2r,v t i 
*>*T4 p:-g/57.2957b/ 

T c « X.CT.C.s ) r,rj TO 100 

Th:t,*t»m(-Y/X)*0£G 

PO 1** NT-»,nH'INT 
TF(TM5T,LT.TM£T* (ST ) | 60 TO 23 

i) c'misME 

2 t *»S 0» !(!•*♦ Y*YI 

->THrT.( TM^T t(NT)-TM£T)/(TM£TA(NT) -THETA ( NT -1 i > 

• Bl-nTMETBI Ml,NT- 4 l»( k , j-OTHCT|*B|»(i,HT) 

33 sR*?,NRNAY 

P(NO. NT-1 )♦(*,. -PTMtT) *c*|i**,nT| 

T'fR.lT.PPJI GO TO 4L 

11 rnsTTWjr 

4i PB. tBBj-Ri MBP2-BP1 1 

VTnto»*(PTHcT«VF (NR-l.NT-l>Hl.C-(tTHrT) *VFf s*-! , nT» 

♦( l.O-OTHEDBVYINBfMTI )«(l,C-n«) 

hi **v 

PO Ilf st«H 9L'IMT» NXNAX 
TF(I,LT.*M l.NTU PO TP 1?C 
It- rn MT? NO* 

MT-NYNA * 

1 tj '‘TMfT-Ifr (1,NT1-X) / (XC(1.HT)-XC(1,NT-1 1 1 
•*l-"TH<;T*veil> NT-1 l*(l.C~ , nTHET)*YC(l»ST1 
1C 144 NR**»NB*AX 

bp2-1Tmet*yC(SR» NT- 11 ♦C.c-ITMrTj BTC (no. NT) 

Te IP.lT.B»:) GO TO *0 

’.3- r in TT N| j * 

BFT'IBS 


VINTRB 

VTNTB# 

VTNTrb 

VINTRB 

HUNT 

BOUNIN 

40UNPX 

ft ow 

VINTRB 

VINTbb 

VTstbb 

vintrb 

VTNTBB 
VINTBB 
VTNTBB 
VT NT BP 
VINTRB 

vt ntb* 

VTNTBB 

VINTRB 
VINTBB 
VTNTBP 
VINTBB 
VI NTRB 
VINTBB 
VTNTBB 
VINTRB 
VTNTBB 
VINTBB 
VTNTBB 
V» wtrb 
VTNTBB 
VTNTBB 

VTNTBp 

V I “TO • 

vi“tbb 

VTNTBB 

VINTBB 

V T NT 0 | 
VI NT*B 


2 

1 


2 
2 
3 
2 
9 
1C 
11 
1 * 
13 
IN 
If 
It 
IT 
1 • 
l« 

2 L 
21 
22 
»■» 
*4 

29 
26 
*7 
?B 
2 • 
ic 
21 

32 

33 

3 B* 

i * 

3N 
3T 
3 5 
IB 


C 

c 

c 

c 


RtJBBOiJTplE WALK(K0n5. J,*, A, IO(N, TCMK, JITS, JR AT* ***!N,«N*«,*nrH, 
• NYY.AC0NT.K106 . Xb Y.NV*L» TTT’ l » 

C^NTi^'J® bRPGRANS NAB, VAL*« S-BCH» 'ST'C, *sp CHEC* 

VRTTTfN NY RtESE KPRCNSON, NASA-AN t S R ; 5 , rT«,. |»)G*b 1«>7A, 
r-rnteicO VERSION) 


C 

C 


c 

12 


FTV:N "Nt BOTNT ON A LIN?. THIS SJ4RPJT1S* SAL*S APPIfUP 
THE * E XT 3« THE LINE, RECORDING THE R?*T OF THE tlNF, 

1T«TNS T 0N A 11 1 bTCNN(A# 1I, AC ONT (II 
''TNTNXTON *3(3),i:(31 »A2(3). JJC31 ,nv(3 ).*?(31 

*" to UC»11b12b13IbK005 

prt-ntaTIOM li UPWARP 
JJ(ll-) 

JJ( >1 -J 
JJOIbJBI 
»* (: i«r 
• r *(2)BV*l 
BY (3)-N 

pp to 15 

CPIFNTATITN 21 TP TM* PTGMT 
JJID-J 
JJ»?I «JB1 
JJOlB.I 
W(l)-V4l 
«K(2laV 

KKI3I-K 
GP TP 15 

ORIENTATION 3* DOWNWARD 
JJ(1)0*1 
JJI2I-J 
JJI3I-J 
*Rll)««-l 


WALK 

WALK 

WALK 

WALK 

VAL< 

why 

VU» 

VAL« 

WAL« 

WALK 

WALK 

VAI* 

m< 

V A L v 
VHK 

WAL* 
WALK 
V4l v 
WAL< 
WALK 
WAIN 

V A L * 
WALK 
WALK 
WAIN 
WAL* 
WALK 
WALK 
WALK 
WAIN 
WALK 
WALK 
WALK 
WALK 
WALK 


WALK 


2 


6 

7 

P 

9 

If 

i; 

12 

ii 
1 ■ 

it 

17 

IN 

10 

>* 

21 

22 

?3 

24 

25 
it 
?? 
2* 
?« 
3P 

31 

32 

33 

34 

35 

36 

37 

38 

39 


KMZt-K-1 
K«I!)b*-1 
K2(l)-1 
K2 ( 21 »2 
K2 ( 3) »1 
cp T« 14 

PB TENTAT ION 4t TO TMF LEFT 

imiBj-i 

jjm-j-i 

NK( n -K 
KM2I-K 
V K ( 3 ) *K ♦ 1 
»»(!)•? 

B2(2»«l 

K?(3)-2 

NPABCM THE 3 POSSIBLE DIPECTtONS. 
pp 17 N-1,3 

CALL X«BfM( JJ(N),KK(N),K2(W)»A, JOIN.irs^.MYY.BILNl.NVH , #• (N1 , 

♦ A?(M1bACPNT) 

»33.M(im3(2)**1l!) 

TF( K3S-D1. ?,19 

BBASfH POINT 

TP(K3(tfnP5),Nc.l) GO TP 9 

Nfc-Kppfc 

<“P Tp 4 

nNB tn: onc pot. find where out* 

pp J W4*i,3 

1*1*3 (N6l,t 0*1 1 SO TO 4 
'“onttnh* 

MCPBC the POINT 

CALL F**T|R(K>(K6)f J J( K6 1 , KK ( K» ) , S V AL» A1 |K4) , A?( K6 I » JMN bK**TNb 1 

* K0P4,X#r»NXY,AC0NT, IS! 2! ) 

OESFT 4 AND * 

.1*4 Jf *M 
•■•KUH 


x r S t f *c*b; at A bounpapv, 
1 M J. cr. JNJ «|| PT TP 23 
r -n TP C*6.;9,24b23)»K005 
»«( J.LT.J«ia»1 go To 19 


IF SP. PUTT. 



PP Tp (24,25. 

26.19),*PD! 

:* 

TF(*6,£P.31 
pp T n )« 

GP TP 1 

25 

TF(*5.?3,?) 
PO T** 19 

GO TO : 

26 

C 

Ttf YA.M.i) 

Fn TO 1 

1° 

IF(K* r - T .KNIS| 

PO TO 27 


Pp T" (b.IG. 29.23). *P05 

27 

IF(K.LT.KNAY1 

GO TO S 


pp TP (P9,t0, 

1.KPP5 

23 

T F (*6 *F p,1 | 
PO TP * 

GO TO 1 

29 

TF»Kf ># =0.21 
ftp Tp «» 

GO tt i 

3t 

TMKfc,eo,3) 

GO TO J 


1 

32 


•b?®ar:- fpr next step 
troi6»4-*6 
K0P5«K0P»*K6-2 
t T( K005, PT. 4) K0P5«K00;-4 

,f l*' , 05.LT, *1 rpP3««00544 

R»» TP 31 

r ONT»N'tT 
*OP5-0 
RETURN 
f NO 


WALK 

40 

walk 

41 

WALK 

42 

WALK 

43 

WALK 

44 

WALK 

49 

walk 

46 

WALK 

47 

WALK 

48 

WALK 

49 

WALK 

9f< 

WALK 

91 

WALK 

9? 

WALK 

53 

WALK 

94 

WALK 

95 

walk 

96 

WALK 

57 

WALK 

5» 

WALK 

99 

WALK 

6t 

WALK 

61 

WALK 

6? 

WALK 

63 

WALK 

64 

WALK 

45 

WALK 

66 

WALK 

67 

WALK 

6 P 

W»l« 

69 

WALK 

IT. 

WALK 

71 

WALK 

▼ 2 

WALK 

"3 

WALK 

74 

WALK 

75 

walk 

76 

WALK 

77 

WALK 

7* 

WALK 

70 

WALK 

• r 

WALK 

*1 

WALK 

6? 

WALK 

43 

WALK 

84 

WALK 

40- 

WALK 

46 

WALK 

07 

WALK 

46 

WALK 

• 0 

WALK 

9' 

WALK 

91 

WALK 

92 

WALK 

93 

WALK 

94 

WALK 

9 5 

WALK 

96 

WALK 

07 

walk 

O0 

walk 

90 

WALK 

IV 

walk 

IP1 

WALK 

) •? 

WALK 

103 

WALK 

104 

WALK 

1-9 

WALK 

146 

WALK 

1 07 

WALK 

1C 5 

WALK 

IP 9 

WALK 

IV' 

WALK 

111 

WALK 

112 

WALK 

in 

WALK 

114 

WALK 

115 


SUBROUTINE ABB ATX (4 #K * I ) A9NATY 2 

'■ONNONYCONa 4JHAX,KHAT, 4N» KNbVHACH, ALBHA,6AN,GANN1,CN. OTbSnUbIMT# '‘01 2 

* CHO* p*NCa,NC8#KCC, AAbHbONEGA, NU» Nl» IT* TALI, TTFB.ENT, PTORT , P T NF, CONI 1 



!NP,OTNF.CI*F, JCSfTH.CUIS»PT#HCI*M,*N0S5»NCME 
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**« 12 •'•l.MO 
I 

.2 Pllf*#4l*0t Z.K^IOn 

FT*5 T 0#0r» ;YFTa» 0LATI0N TO ?I NI'LATA ^1|»SA*0NIC n»JTALPW 
e...OOU**1A*V COIMTIOM AT J#A* 

*>0 1 '•• 1 ,* 

***1 1 «»?pRN 

» Ot J"»A*.R»N) >(*.*•<)( jN,*fN|A1f JNp Kl~0( J0-lf l <*N|*0t JN-lf* 11/ 

> m i*av*n) 

C...*ATI*AV TAN^FMCY CONDITION USING C MA A ACT s AT ST T «* -OPATIO# 
on 1 A. 1*1 

*»o * j>:»jnav 

/0IJ,*, 4 | 

w IJt*IOtJpK*3l*? 

?>■*» Jp»p4l 

1 MJ**IM*?-C.?*P(Jf*l*tlM 

C..»C , *»WlTr •-*!» M-«T,V-*I, •■<Tt> l J«in» INO V— "T» 0-»TVATTVE*“ 
op A J-2,J# 

•»m n* t#t j*:#ii-p( i-i* m*.*« 

"»Tt 

"»Mi (21 

"«H SI-WVK2I 

•»!CJ*A* »■»».. ) *o « 

M « , l IN* * I ■! 3 # , AIM JNAYp. 1*4.; *’.l| JN* 1 |4'lt J#*' * \ 1| * 

»rir in«v|.| j.i *Vf Jna*»‘ t-4. )*v(j« fi )4Vi JN--.IU** .* 
or i J" 1 » JN A Y 
or r *< J» M-5.. •*( 

"fTAI JI*<-3. *U|j,llA4.'**Mj, 21-MI 
w f T *l !»*«-?• ,*VI Jf 11«4.L*Vf J* 21-Vf 
T c l J.* 0 . 1 .n#. J,to.l*A*l c0 TO 5 

5 “ONTTN'IJ 

• I i *’ >•‘>12*21 
•MJNA»*2»*., 

"o 2 j«:*j*4* 

rinvTi/tiMM jpii/a (j,;n 

♦■l.MSOATt Y*M J,W »)•#?« vr¥( 

•l»A*«Vf y| J, 1*1 1 AIM if 1 ¥1 Jfl f 1»*W| J, ll*Y>Y(4*lfll 

) 4U ( | ( J )•***( jfi* 2 )*v( l*llAY?vf 4 f If 2 * 

T«in. 4 o.*tI I j ) 4 B( j, n*c M**?*t IFtC JflfltA'lvK tiAV?vf j,| *; im'Mll 

* V( J* !f 2I*( VE«( J* IflMPVT U1 •«( J. 1 1 ***M * ••»» | ( J ) l* 

' »‘V| If If ’1 •C*£V|Jf It ll*FVf |j|«»Ufll*UAA**V«M Jill 

* *t vi j.: i tvi j, i» i*FtoiTucs i 

• TAM>r*A/v*»=TA( J I — • < Jf ll*eM**2*C*3» 1 If!** I^TMJI^tn 

* v*r» 1 m-et 

•l»»f 1* !»♦• T»I|*0T*J ,?»2.;a*p ( J, 2 I 
f F Ml .IT. >,oi tQ TO A 
?j "'NTTN'JC 

T f U,l : .?i •I##T*l#ll*ll-»TI#j.llillXllI 

#e NT) ♦•t;.f/tA»> 

OJ ?. AOAN/GANnI /* • ) l 

T«(A«t|*FV| jf I, ni-l .'J.P'l 11 ‘*6,7 

i TMrTA,i.«7- 7^f327 
*n f-> ■ 

v Twr T ««ATANf -VSV( 4,1* 2 | /Y*V| 1,1*2) | 

• CPNTT Niif 

*r r 'S*YH2TX 1 
wi«01 *StNtTH;T*| 

iijf!#’ »■•:•!!! 

oij*i* 2 »«*:*ii:«oi 

"I JfTfA»»*l*»l*l*l 

n| Jf ' *41 ■l#;#tAM#l* '«5*A;*01 •*J1*0I 

! roMiTt^n* 

•*r T"*s 


Mf>#Y 

• NO*Y 

Mn«Y 

•NO* V 

• NO# Y 
#NO*Y 
AN 0#Y 
ANOAY 

• N**Y 

• NO# Y 

• NOAY 

• NOAY 
•NO# Y 
AN*## 

• NOAY 

• N0#Y 
•NO#Y 
■ NO»Y 

• NOAY 

• NnAY 
ANOAY 
•NOAY 
ANOAY 

• NP#V 


•NOAY 
ANOAV 
N no* y 
•NO*v 
•NO*y 
AN PAT 
•NOAY 
•NO*r 
■•■>•» 

• No* y 

• NO* Y 

•no*y 

• NOAY 
•NO* V 
ANOAY 
•NOAY 

• NOAY 
•NOAY 
•No* Y 

• NO*Y 
•NO# Y 
•NO*v 
9NO*Y 

• NO* Y 
*NO*V 

•nopy 

•NOAY 

• NO* Y 

Fnopy 

• N o* y 

• no*y 
•N o*y 

• NOPY 

•No*y 

PN O* Y 

• NO* V 

• NO* Y 

• NO*y 

• NOAY 

• NO* y 

• NO*Y 

•npay 

■NOAT 

• NOAT 

• NOAY 

• NOAY 

• NO* Y 

• NOAY 


f *• t NT •EStApy AHA NEC AT T Vf »#1SS , J*£ 

r 

» W#ty«»0,1 „J #;*J 

to in 12 

!« > * n *NATf • Y* 4 4HNr*tATT VF •**SSU#e ON BOOY ocxeiTFO «Y »N0A y* * ? f * 
* 3MPA«,1A£*;.,3*6N AT J-*I2» 

:np 


• NP*Y 

• NOAY 

• NO* Y 

•NOAY 

• NOAY 
•NOAY 

• NP*V 

• NOAY 

• NOAY 


•fl 

S' 
s? 
• 2 
M 
6* 
61 

47 

6« 

S4 

7* 

72 
71 
Y 4 
Tf 
▼ ft 
77 
?• 
7* 
nr 
• 1 
*; 

• 4 
6* 
Af 
*7 

• • 

*• 


f 

C 
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AU^#OUTINE AO0Y( Y >t #R N0< E 1 4 NG» M | 

IDfiTfAL ttAAV 

CON-ONMUNoa/YXinilfrYllPClfNAnOft-JOAV 
FI 4 1 » £Y#I -ANSI A-AN0S£ l/H) 

*t lf**K|af9 AAAI (S INI ?•*•)*(. If |A*KA*f*10ATI£( Al-f( A)**?ll 

* MFt*l-TtNt*|**I)» 

t(A.A|-A#lt APtf A**6*SIN(A)«C0S(A|*S0AT(AA«6.1.1|/U**f*rpy(AI**2-l 

• .111 

e *t **•» f*OI«A*( #*C-SQ#TtO* ti.-o HI /(•>-•*• | 

'?(AfO|*FVA|-ift«t;.-l .;*!/• I 

.... M ,Nj. ).* I IONDPAUS? FOA A NONAAtV TIC #l*N-T 
• •<•* H .F'lf t tOUATptHL FLANj AOA A NAGNATtr »L »Nf T 

* r fN .;0. J. j 160 TO ID 
T* (H.LY.I.yI 60 TO 15 

..i..TNTS OtTAANINEl TN* FOOY $ H A#r Or A NONA IGN " TT r *L ANE T 


7FAY-1D1 
*NAVNl.T#A«-i . 

T *f«NG .£0. 0.JITNATN1-: 

•T*2.i4i5A26535608 

#AP»!A: ./Pt 

0#L TA TaPNGY FLOAT! IN AX ■*! | 

TNEYI- , 

* 1 .ANHYt 
rST%BT»: 

I* tN.L:*.?.ll 6 0 TO 22 

....PT#A0»n INT':6#MT0N FAO# TO <4NG< 0 Jt*f:s 
Contt N‘»e 

TA It t* A V I to TH 45 
"r 3 f.TSTAATflNAVN! 

..,.f*roTCTnP 

TUIT7 1-TMCTA 
*’•* 

*-#'.*0 LTAYAFt#: fTNfTAlfN) 

T «t T*.TMETA+OtLTAT 
• .t..rop»?YTPP 
oofiTi MIC 

.V*05LT4T*tFt*:f TNSTAlf NI*F I#*TM?’4.N1 » 

*»*♦’ 

T C |A .IT. 5 ItO TO ; 

»■’ . “P*C0S tT^E T A ) 
y.**y TNt TMf TAl 
*!•* 
r ONTt M«f 

• E T'tPN 

CON y»N he 

TC IN .LT. W.t :» to TO 3., 

OO *5 f •«,! NAYNl 

• •*N'*^-.Hf5 TNI TMf TA |A*2 
**1.C-**C0S (THITAI 
y.*AAfv|TM<TI| 

»«TA»y«T 

»!•* 

TF ITM-ta ,G c . 5.C/4A0I CO TO ? 
rut T 4 » T 4 ^ T A *0 E L T A T 
?; r ON Y* N’ft 

*PtF <:IN»*S0I0AI NO^E SMI*t FOP N/#^ ,L t . 

»>. i.iNxtf«H*iHtmr.i**? 

Y*i. - — **C01 tANGI 
y.***- INIANS) 

• A Ttl#N 

*...TM»y OfT«*NlNiS TN 1 * BODY SNAP? QF A NAGN^Tf- PLANET 
CONTIN'IP 

TNAY-l.TNAY-1 

TFtANT, ,P3. J.-II-AIM1*! 

••r-iBj./Ai 

or lT , Y L04y | IN AX At I 

*Mf TA.PT 42, 

(jtlNnif 


• OPY 

iri«np 

N«JBQO 

•OPY 

*00Y 

• OOY 

• OPY 
*0oy 

• OOY 
•OOY 

• T)Y 

• OOY 

• OOY 

• OOY 

• OPY 
•OPY 
•OPY 

• OOY 
•OOY 

• 00» 

• 00» 

• OOY 

• OPY 

• OOY 

• OPY 
•OPY 

• OOY 

• OPV 

• OPY 

• OPY 

• OOY 

• OOY 

• OOY 

• OOY 

• OOY 

• OOY 
BOOY 

• OOY 
•OOY 

• OPY 

• OOY 

■ Ooy 

• OOY 

• OOY 
•OOY 

• TOY 

■OOY 

• OOY 

■ Ooy 

• OOY 

• OOY 

• OOY 

• OOY 

• OOY 

BOOT 

•0"Y 

• OOY 

• OOf 

• OOY 

• OOY 
BOOT 

• Ooy 

• O^v 

• OOY 
•npv 

• OPY 
■0*Y 

• OOY 

• OOY 

• OOY 

•nor 

• OPY 
•OOY 

• OOY 
•ooy 
•aov 

• OOY 

• OOY 

• Ooy 

• OOY 
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c 


•OOY 

§3 

IS • tt *1 

BTRI 

1 i 

INTEGRATION MW* / TO AN6 DEGREES 


•00 V 

B4 

t • u 

BTRI 

12 

C 


10 OY 

85 

00 11 N-1,4 

BTRI 

13 

on H i-i,inaxn1 


BODY 

Bt 

on U N-1,4 

BTRt 

14 

c....u.»»EnicTno 


ROOT 

BT 

11 M(N,"l-MtI,N,NI 

BTRI 

15 

THFTA1-TMETA 


• 00V 

BB 

CALL IUOECI HI 

BTRT 

16 

*-Rl*DEl TAT *G (PI, THETA) 


BODY 

85 

M - Vl*EF( l,ll 

BTRI 

IT 

THETA-THETA*DELTAT 


BODY 

90 

02 ■ V2MEF (1,2) - 121*011 

BTRI 

IB 

C....i..Cn»«ECTO* 


300* 

01 

03 • V3*(EF tl,3) - L31*0l - 112*02) 

BTRI 

19 

R*it*x-.3RDELTAT*(C(Rl»THETAl»*6t«,TH**All 


*00Y 

92 

04 • V4*( EF ( 1,4 ) - L41*01 - L42*0? - l*3*03» 

BTRT 

20 



Boor 

93 

F F ( T, 4 ) • 04 

BTRI 

21 

x5 cnNTTNn? 


BOOT 

94 

EF ( 1,1) • 03 - 034*04 

MTRI 

22 

ItU^tCnSUHSI 


BOOT 

95 

EFII,2I ■ 02 - U24 *04 - U23*SF(I*3I 

•TRI 

23 

Y-r*STN(ANG) 


300Y 

96 

EF|T»11 • 01 - 014*04 - U13*E* ( 1,31 - U12**F(T,2> 

MTRI 

24 

••TURN 


BOOT 

97 

00 12 «-l,4 

BTRt 

25 

C 


BOOT 

98 

01 * V1*C(I,1,N| 

BTRI 

26 

C....I. ». I KT*RPOLATF Ft OH USER-SUPPLIED MOOT SH4P* 


BOOT 

99 

02 • V2*( C ( I ,2, Ml - L21*01l 

BTRt 

27 

C 


MOOT 

1)P 

03 • V1*( C ( 1,3, Nt - 131*01 - 132*02) 

MTRT 

28 

35 CnMTI1*t£ 


BOOT 

131 

04 • V4*( C (1*4, H| -141*01 - L42*02 - 141*01) 

MTRI 

29 

50 33 T-2,NB00 


BODY 

102 

M(|,4,M) - 04 

BTRI 

3C 

** (ftTAN2(YVm,XX(TI) ,6T. ANSI GO TO 4, 


BOOT 

103 

Bt!,l,Mi - 03 . U34 *04 

BTRt 

31 

33 CONTINUE 


BOOT 

1)4 

M(I,2,M| • D2 - U24*D4 - U23*B(l,3,MI 

BTRT 

32 

4<) *l-SORT(Y*f I)**2*TXU)*»2I 


BOOT 

105 

B(T,1 »N| - 01 - 014*04 - UI 3 *S ( I* 3 » N) - Ol?*M((,2,N) 

BTRI 

3? 

•2-SQRTtVY(I-l| R*2*I7 ( 1-1 1 **2) 


BOOT 

196 

t .. .forward SVEE* 

BTRI 

34 

ANSI* AT A N2 (YY(I1»XX(ll) 


BOOT 

10 7 

12 CONTINUE 

BT*I 

35 

AN0Z-4*AN2( VV(I-l), HIJ-II I 
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1)5 
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BTRT 

36 

®-«»l*IANG-ANr,ll/UN62-ANCn* 13 2-411 


BOOT 

100 

T* • T -1 

BTRI 

37 

X ■ 1 » 0-3 • COS (ANSI 


BOOT 

110 

on 14 N-1,4 

BTRT 

3N 

v-siniang)*» 


BOOT 

111 

?F f I, N| - E c ( I , N| -A(I,N,l)*cF(tR,l) -A(T,N,2)*EF(IR f 21 

•TRI 

3« 

* F rijt N 


BOOT 

112 

* -A(t.N,3)*FF(IR,3t -A(I,N,4)*EF(TR.4» 

BTRT 

40 

C 


BOOT 

11) 

14 N-1,4 

BTRI 

41 

C.i.»W.OFTFRNlNES BODY SHARE WITH 63 AVI 1 ATI ONAL VARIATION t« 

H 

FOOT 

114 

H|N,M) • M ( I ,N, M | — A ( I, N, 1 )*5( JR, 1,N| -4 ( I ,N, 2 I *8 ( l R, 2 , N 1 

BTRI 

42 

C 


BOD* 

115 

1 -A(I,N > 3)*3(IR,3,«) - A(I,N,4)*3(TR,4,"t 

• TRT 

43 

4J CONTINUE 


BODY 

116 

14 CONTINUE 

BTRT 

44 

T* (M.LT.U.il GO TO 2u 


MOOT 

117 

CALL L'’DECf H| 

BTRT 

45 

C 


BOOT 

U» 

Ml - V1*EF(I,1) 

BTRt 

46 

INTEGRATION FROM 3 TO AN&' 06GR 5 C S 


300V 

119 

02 - V2* (EF (1,2) - L2l*Dl ) 

• TRT 

47 

r 


BODY 

12f 

01 - V3*(EF(T,1) - L31*0l - L3 2 *D2 ) 

BTRI 

4F 

on ?* I-ISTART, I-AXN1 


Bonr 

121 

04 - V4*I C F(I,4) - L41*01 - L42-02 - L43*D3) 

•TRT 

49 

AS-SINITMETAI 


MOO* 

122 

EF*t,4) ■ 04 

MTR* 

5C 

AC-ecsi thetai 


• 0*Y 

123 

rf (1-3) - 03 - 034*04 

BT*t 

51 

THE TA 1- THET A 


MOO* 

124 

FF( I, 2) • 02 - 024*04 - U23*|F(I,3) 

btrt 

52 

C....W.*MOICT0R 


• 00* 

125 

EFCt,i) - ni - U14* 04 - U13*EF(I,3) - U12*EF(I,2I 

BTRI 

53 

il-*3(*i,M) 


BOO* 

126 

**( T - 10)16,13,13 

MTRI 

54 

K-f 
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127 
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MTRI 

5« 

0RX-F2t71,AS,AC, All 
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12* 

"0 15 N-1,4 
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56 
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MTRI 

57 

R-«10Rv*nElTiT 
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130 
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•TRI 

5# 
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BOOT 

131 

OJ - V3 * ( C(I,1,H) - 131*01 - 132*02) 

BTRT 

59 
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04 - V4*l C ( 1,4, M) -141*01 - 142*02 - 143*031 

BTRT 

6C 

Afl«rOS(THETA| 


BOOT 
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*f T * 4 » M | . 04 

•TRI 

61 

C .CORRECTOR 


BOOT 

114 

■ 1 f -3 ,N) • 03 - 'H4*04 

BTRI 

6? 

y. CONTTN'IE 


MOOT 
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M(I,2,N) • 02 - 024*04 - U23*B( I, 3, NI 

•TRI 

63 

All-F3(R,H| 


BOO* 
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•(1,1, “) - Dl - U14*04 - U13*«(I,3,N) - 111 **•(!»?, N) 

•TRT 

64 

nRV«.c2(R,ASl,ACl,Ant 


BOOT 

11* 

:s CONTINUE 

• TRT 

65 

IF (ORXX.LT.O.O) 03XI-2,*H*ASl*AC: 


MOO* 

hr 

!3 CONTTNItf 

• Til 

66 

U0PE-.5R(DRI*DRIXI 


BOO* 
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C...3ACV SUBSTITUTION 

• TRI 

67 

•■Rl*SLOPf*OELTAT 


MOO* 

I4f 

IT * TL ♦ IU 

• TRI 

6* 
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00 21 IT • IS,IU 

• TRI 

49 

TF (*,LT,5) Cn to 5t 


•OOT 

142 

* • IT - It 

BTRI 

70 

T.),M*AC1 


BOOT 

143 

I • • 1*1 

BTRI 

71 

t.r*asi 


BOOT 

144 

00 22 N-1,4 

•TRI 

72 

»!•» 
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* F ( I, N) • FFII,NI -B(t,N,l)*CF(IR,l) -M(T,N,»)*EF(IP,2) 

• TRT 

73 

55 'ONTTMU? 


BOOT 

146 

* -•( I.N,3I*FF(I*,I) -M(!,N,4I*EF( IF, 41 

• TRI 

74 

• FT*I«N 


BOOT 

147 

22 CONTTNUF 

• TRT 

75 

sun 

SUBROUTINE BT3I < IL# tUt 
LEVEL 2 » 0, E F, S, F» A3 


BOOT 

MTR? 

COM3 

148 

2 

2 

21 CONTtNUE 
RETURN 
FNO 

• TRI 
•TRI 

• TRT 

76 

77 
7R 

rONNON /CON 1 / QJ4),2&»4),EF(4),4),M4),2{>,*)»G(4)»AB{4, 

4) 

COM3 

1 

SUBROUTINE OISSI* 

OTSSIR 


LEVEL 2, A » 8» C» HO 


COM4 

2 

COMNnH/CONl /JNAV-KHAV, JN-Kfl, xnach, alfha,o an,samni,cn*ot,$nu,i frt. 

CONI 


rONNON /C«N4/ A(4)»4,4l»B(40,4»4)»C(45»4»41»H0t 40,4,41 


CO -4 

9 

* CHORD, NCA, NCI, NCC,AA,H,0*ERA,NU,NL, IT, T»n, ITER, ENT, FTO*T,*INF, 

CONI 


•f AL Lll,L21,L22,L31»L32,l33fL41,l42»L43,l44 


LUO 

2 
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CONI 
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, V2.V3.V4, 

LUO 

3 
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COM2 
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4 
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0 I HEN ST ON H I 4# 4 ) 
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6 
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C INVERSION TF RL0C3 T3 IOI AGONAL. • • A,»,C ARE 4*4 HOCKS 
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7 

LEVFL 2,0, E F,S,€, A3 

COM3 


C IF IS FntdNfi FUNCTION AND SOLUTION IS OUTPUT IN E F, 3 TS 

OVERLOADED 

RTRT 

8 

CONNON /CON 3/ 0(40,20,4), EF(43, 4), S(4C»20,4)»G(4),AB(4,4I 

CONS 


C ML OCX INVERSIONS USE NONfIVOTEO LU 0 fCONBOSI TT ON 


MTRI 

9 

C*. .S N^DTH IN TH* X ANO T DIRECTIONS ANO ADO SNpruHING TER- TO S ARRAY 

OtSSTR 


C IL AND IU At£ STARTING ANO FINISHING INOIC f S 
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10 

knn-kn-i 

DISSIR 
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P$*(2.0«GAM*XX-6AMM1) /GAMP1RPINF 

INITIA 
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TNITIA 
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INITIA 

55 
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INITIA 

56 
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INITIA 

57 
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INITIA 
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INITIA 
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INITIA 
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INITIA 

52 
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INITIA 

63 
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INITIA 
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INITIA 
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INITIA 
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INITIA 
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INITIA 
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INITIA 
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INITIA 
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INITIA 
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INITIA 
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INITIA 
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INITIA 
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TNITt A 

B 1 


0(J*K»l)>RHO*Dt 

INITIA 

8 P 


Of J.K,2 J.RNO*UVEL*0I 

INITIA 

B3 


0 ( J.K, 3 1 ■RNO# WEL *01 

tNtTIA 

B4 

2 

OU,K,4l»|PRCSSP6AMlI*RH0P(UVELPP2*VVEL**P|*0.S »*DI 

INITIA 

*9 

C*. .REFLECT METRICS ANO Of PENDFNT VARIABLES ABOUT PLANE OF SYMMETRY 

INITIA 

R6 


On 4 K*1,KNAX 

INITIA 

B7 


00*1-1. DMRJCS 

INITIA 

B« 


00*(«1*0»RRJCS 

INITIA 



OCl*Kl«Ot?*K | *00 

TNTTIA 

09 


TfXIl.K.l)*— XEX(2*K*It 

INITIA 

01 


XETCl»K*ll*XETf2,K*lt 

tNlTt A 

92 


XEXU.K, 2t*XEX(2*Kf 2) 

TNITIA 

93 


XETI1.k,2|.-kEY(2,K*2I 

INTTTA 

94 


00 5 N*1 * 4 

INITIA 

99 

5 


INITIA 

96 

4 

Oil, K, 31— 0(2,K*1)*00 

INITIA 

97 


PETUPM 

INITIA 

9B 


FNt> 

INITIA 

99 


♦ uMmiTI*? INTEPR 

COMMON/CO-J. /J MAX* KM AX, JN,KM»XNACH,ALPMA,r.AM,r,AM«l,CN*OT,SNU, t«T* 
> CHOP 9, NC A, NCB»NCC» AA,H»OMEGA,N«, m , X T, TAM, m • *ENT , PTPRT ,*I NF . 

*• TNe,Mw*#t ImF, JCS, TM^l’lS.RT.HOSN.RNns E,NC ASE. NPIJNCH 
LEVEL 2 » 0. E F* S* G* *6 

COM-ON /C0N3/ QI43, 2:-»4),EF(43*4I*S(4 > '*2? > *4l*r<4l*4P(4*41 

c.*.Co-piiT e forcing functtqn and sto*e temporartit in 5 array 

CA It RMS 

C...»tn FOURTH 0 *DER TP *TIOM TO SMOOTH SOLUTION 

call oisstr 

C**. SOLVE FOP 

no 1 K*2,KM 

Cm.FIU ELEMENTS of l4H*DX 1 FOB BLOCH TRI91AG0NU INVERSION AT E*CH 
C »« »K TH LEVEL 

PALL L«LT*A(<» 

C...tNVEPY BLOCK T* ID! AGON* L MATRIX AT K TH L*VEL ANO STOP* SOLUTION IN 
C...S ARRAY 

CALL -TRItZUM) 

"0 1 1*1*4 
">0 1 J*2,JN 

1 S ( J *K *L I *E* f J*L I 
.SOLVE *0* O-BAR 

no J J *2 * JN 

C...FUL ELEMENTS OF I*H*DY B FOB BLOCK TRI0IA60NAL INVERSION AT EACH 
C...J TH LEVEL 

CALL LBL TAB I J 1 

C •• .1 NVERT BLOCK TP TO! AGONAL HATR IX AT J TH LEVEL AMO STOPE SOLUTION IM 

C...0 ARRAY 

CALL BT* 1 1 2 *K*1 
00 2 L* 1 * 4 
on ; k*2*k« 

2 01 J»K*ll«FFtK*LIRQt J» K*LI 


tntfgr 


CO-1 


CO-1 

? 

COM! 


CO-1 


C0*3 


Intf<;r 


I*TE 6 R 


integr 


intfgr 


TNTEGR 


INT«OR 

10 

IMtfGR 

11 

INT56* 

12 

INTEGR 

13 

INTE 6 R 

14 

TNTE 6 P 

15 

INTCGR 

16 

INT* 6 R 

17 

INTEGR 

18 

INTEGR 

10 

INTEGR 


INTf 6 * 

21 

INTfCR 

22 

INTEGR 

23 

INTEGR 

24 

TNTE 6 R 

?5 

INTEGR 

26 

INTEGR 

»7 

INTEGR 

2 * 

INTEGR 

20 

TNT«GR 

19 


tau-tau*dt 

PETUPM 

•NO 


INTEGP 

INTEGR 

INTEGR 


31 

32 

33 


SUBROUTINE LBLTP A (K I 

C0NM0N/C0M1/JH4T*KNAX» JN*KN*XM ACM* ALPHA. 64**6 AM Nl,CN*r>T.SNU* I PtT* 
> CHOPO*NCA,NCS*NCC. AA,H»0ME6A,MU*NL*IT,TAU*TTER»EMT»PT0PT.PXMF* 

«R Inf, OINF.C INF, JCS, TH.CLUS.RT, HORN, PROS E.NCAS r.NRUNCH 
LEVEL 2* 0. E F* S* 6 * AB 

COM MOM /C0N3/ 0(40*2b*4l*(F(43*4t*S(4^*2D*4|*6(4t*AB(4*4) 

LEVEL 2* A* B* C* HD 

COMMON /COM 4/ A(43*4*4l*B(40*4*4t*C( 40* 4* 41* HO t 40 *4*41 
on 1 J-1.IMAX 

C...10AD BLOCK A MAT*IX EVALUATED AT N TH LEVEL *0* ALL 4 INTO HO ARP AT 
CALL ABMatX(J*K* 1) 
on i m.i ,4 
on i l-1*4 

1 HD( J»L»M).aB(L*M| 

(‘•••MIL 0FF-OIA60NAL AMO DIA60MAL ELEMENTS BASE" ON A ?-N0 OROFP 
C «• .CENT* AL DTFFf PENCE 
O0 2 J-2.JM 
00 2 N«l,4 
00 3 L*l* 4 

AIJ.l.NI— HD( J-1*L*MJ*H 

•rj,l,M»* 0.0 

3 C«J*L*"1*M0(Jp 1»L*MMH 
C...FTLL FORCING FUNCTION FROM S ARPAY 
?Ff J*MI-S(J»K*M) 

C •• *S ET M pm THE 01 AGONAL REPRESENTING THE IDENTITY -AIR I X TO ONE 

2 B(J*m*m).i.g 
return 

?*0 


LBLTRA 


CO Ml 


CO Ml 


C0M1 


COM3 


COM3 


COM4 


COM4 


LBLTRA 


LBLTRA 


LBLTRA 


LBLTRA 


LBLTRA 

10 

LBLTRA 

11 

LBLTRA 

12 

LBLTRA 

13 

LBLTRA 

14 

LBLTRA 

15 

lbitpa 

16 

LBLTRA 

IT 

LBLTRA 

18 

LBLTRA 

IB 

LBLTRA 

20 

LBLTRA 

21 

LBLTRA 

22 

LBLTRA 

23 

LBLTRA 

24 

LBLTRA 

25 


SUBROUTINE IBLTRBUI 

On«»<nH/COMl/jMAX*KNAX,JM.KM,XiACH.ALPHA. 6 AN* 6 AMMj,CN*DT,SMU*tPPT. 
> CHOP Of NCAfNCB.NCC* AA,H*OMEGA, NU.NL.TT. TAU. ITER *£MT, PTORT.P INF. 
«PTHf,OtMFfCIN*f JCS*TP,CtUS,PT*N0RN*RM0SE*NP4BF*N»UMCH 
LEVEL 2fQfEFfS#C*AS 

PQnnriN /C0M3F Ot40f 20*41. EFt49*4t*S(40. 20*41, 6«4)* AB(4»4! 

LEVEL 2* A*R*C*HO 

rn-MON /CO* 4/ At40,4*4)»BU0»4*4l*C(4C.4*4) .Hl>f40*4*4) 
on 1 K* I f *M AX 

C...LOAP -LOCK - matrix EVALUATED AT N TH LEVEL '1* AIL K I NT fj MO ARRAY 
CALL AMMATXi j*K, 2 ) 

00 1 M-1,4 
00 1 L-1.4 
1 HD(K,L.")*ABIl,MI 

C.,.FTLL 0 re -0IA60NAl ANO DIAGONAL ELEMENTS MAS'n QN A 2-NO ORO** 
C...CE-TOAL 01 Fff RcNC? 
no 2 R-2.KM 
nn 2 m* i* 4 
00 1 l»I* 4 

A fK*L»-l — H0IK-1*L,M|M 
MIK»l,«t*0.0 

3 C (K*L*Ml*HO(K«l*L*ni«H 

C...FTLL FQRCTNG FUNCTION FROM S ARRAY 


FF(*,«).St J,K,N> 

C...SET B ON THE 0IA60MAL REPRESENTING THE IDENTITY -»TRIX Tn ONE 
Z *tK,M.*>*l.C 
RETURN 


FNO 


IBITRB 

C0M1 

CO"! 

com 

COM3 

COM3 

COM4 

COM4 

LMLTRP 

LBITPB 

LBLTRB 

IBITRB 

LBLTRB 

LBLTRB 

LBLTRB 

LBLTRB 

LBLTRB 

LBLTRB 

LBLTRB 

LBLTRB 

LBLTRB 

LBLTRB 

LBLTRB 

IBITRB 

LBITPI) 

LBLTRB 

LBLTRB 

LBLTRB 




SUBROUTINE LUOEC t A I LUOFC 

DIMENSION A 14*4 I LUOEC 

REAL L11*L21,L22*L31*L32*L33*L41,L42,L43»L44 LUO 

COMMON /LUO t Lll*L21*L22*L31*L32*L33*L41.L4?*L43fL44*Vl*V2*V3»V4, LUO 
• U12»UI3»U14*U23,U24*U34 LUO 

C SUBROUTINE COMPUTES L-U DECOMPOSITION ?L ENFNTS LUOEC 

111 • All , 11 LUOEC 

VI - 1 * /LI 1 LUOEC 
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U12 - Vl*A(l,Z) 

UJ3 • Vl*A(l, 31 
Wl* - Vl«A(i.4l 

121 • IIMI 

122 • 4(2*2) - 121*U12 

»2 • 1./U2 

!!?? * ! ****** -i*i*uii)« ¥2 

M2* • I A (2 #4 ) - L21*U14I* ¥2 

1)1 - 4(5*11 

L32 • 4(1*2) - L11*U12 

* *!»**» “ -L)**U2I 

T » • 1*/L1] 

1*1 - itZli" " L5l * U14 - t!2*U2AI* ¥3 
LA* - 4(4*2) - L41*U12 

It? • *!***» - - L42*U21 

14* ■ 4(4*4) - L41*U14 -14|*1J24 -143*1134 

V4 • 1.2144 

•ETU94 
*no 


luoec 

lUOfC 

LU0EC 

LUOEC 

LUOEC 

LUOfC 

tuoec 

luoec 

IUPCC 

10«*C 

L'JDEC 

1 'ioic 

luoec 

LUOEC 

LUD5C 

iu«fc 

LUOfC 

L*in?c 

LUOfC 

LUO*C 


5U*9nUTTNE NflLFTS 

Cn»*0N/C0*l/JNAX,K*AX*jn,KN,XNAC4»ALFHA*GAM«eA4Nl,CN,nT*S*Mt,IF9T, 

> CHn»q*NC4.HCB,t»CC*AA*H*nNC<;A.NU*IH*IT*TAU*ITE4*ENT*PT0«T**lNF, 
<MNF,Q!NF,etNF, iCS* Tfl*CLU 5 * ft* morn* 9 NQ)t*NC 4 )«* mfuhcH 

l f ¥51 2 *Y*Y*XPT*KEy»VEY»D 

rnnuOM /C042/ XI40, 2C )»Vt40,23),XETC43*2C.2)*YEI(40,20,2), 

* X E Y (40, 20*21*0(43*20) 

l^GirAt l«E«U«*ir»Fl»lMST*lMCO*,LM 4 ,mOT*LT»AJ,L«'T'T 
f 0 ««nM /F* 0 *T/ L*E»UN»i¥tFL*L¥AST*L¥trni«*L»t 4 *inOT*LT 4 Aj*t«ST¥T 
Cn**l 4 /RlUNTf THETA( 23 I.I¥( 23 * 231 *N 9 L"MT 
C...TMTS SUBROUTINE DETERMINES THE t 4 H 0 Y LOCATIONS OF THE NOnf FOINTS 
OTHET- 1 , 57079635 / (FL 0 AT(M'LU 4 T)- 1.5 ) 

FO* CYLIHOEt, J-l FOR SFHEAf. 

r >ElT?-(fiA»"l*XH*CH**2*2.f )/( f GA*.1.0I*YM4CH**2) *?.T6*3.C **(l-JCS ) 
TF|X4ACM.LT.5.I OELTC- (2.02476* ( XNACN*-! .2 * 1 * *2— 9.69 1 *M *( XNACH- 

> 1.251*4.4) /4 .-**JCS 

tF (hq»h .IT. 6*0) GO TO J5 

TF| NORN .IT. o.l .AND. HORN *CT. t. |)P0 TO 10 

4NG-90./97. 2997799 

CALL 4OrY(V90*Y90*BN0SEf 4NG»H0*NI 

ocito*OELTO*( 1.2730 *0 .0090* XH4CHI* 0.90 440.699* HO»N) 

0ILT1 •0£lT^*(3.99-*.3*Hn»N.3.B5*H0*N**2)» v «0 

OELT«j«l.l*| (GA9Nl*xnACH*.2.2.) MIGAMl. )«vmrN**2) ) *(5.9f ♦, 9*H09H» 
10 FONT I HUE 

00 40 J>2»JHAX 
C. BOOT SMAFg 

TH|T.(*LOAT(J)-1.3)*0THET 

I* (19STPT) THET«ATAN2(Y(J»11,1.0-X(J*1I) 

CALL *0nv(Y4*X4*9NOSE,THET»H0*N) 

U*I4 

C SMOG* 54 AFE 

IF (LRSTRT) GO TO 20 
TF (HORN .IT. 5,0 CO TO 13 
T* (HltN.LT.J.l • AN 0. M0*N.GT.C.3) GO TO 19 
IF (i .tT. 49LUNT1 GO Tn 12 

3«4-0ELTl**2*(l.-5t4(THFTl**2l /SIMHET 1**? / (1 . ♦GELT') I 
90U*AO4.MM*(l,*DElT„ I 
*A*l.*t *B*— S0RTUU)B**2*FCUf AC) ) *0.9 
THET90-1. *7(796326979 

tF((T4ET-T4ET90l .GF. C .5 1 X A-l .♦( »*4.S0*T ( 4*3..2.«3U* AC )l *1 .5 
\l T».o:iTi*Sa*TCU..0ELT))-(l.-»4| ) /SO*TI l.*0?lTO ) 

GO TO 30 

49 <* n»<Ti *tjf 

IF ( J ,GT. NBLU4TI THET.ATAN2(VA*1.-XAI 
9 El T.a.C*^6B*THfT«*2*b.l6*T4CT**4)*0ELT3 
IF (J *GT. N4LUNT) GO Tn 17 
YA*1.0-(1.3«DELT>*COS ITHET1 
17 YA>(l.940ELT)*SIN(THET) 

GO TO 30 
2. rONTIWF 

VA-Xt J.RNAX) 

YA-Yt J*KHAXI 

CALCULATE NODAL FOINTS 

1C CONTINUE 
TRN-RMAV-1 
OX- I XA— XR ) / 7RN 

nv*i Y|-YM /2NN 
no 40 R-1»RNAX 
7R.R-1 


N0l*T3 

com 

com 

com 

com 

com 

com 

F*0* t 
••0*T 

BLUNT 

"Ol*TS 

»nt*ri 

nni*T* 

N0t*TJ 

NOl*TS 

•OLfTS 

NOl*TS 

HOIXTS 

*0L*T5 

N0l*T3 

NnixTT 

40L*TS 

NOLFTS 

ND|*TS 

NOLFTS 

•»OL*TS 

NOl»TS 

noi*ts 

NDLFT) 

N0l*T5 

NOLFTS 

Nnt*T5 

40l*TS 

NOl*TS 

NOIFT) 

NOl*TS 

NOLFTS 

N0l*T5 

NOIFT) 

NOL*TS 

N01FT5 

901*1) 

•40l*TS 

*Ot»T) 

NOL*TS 

NI)t*T) 

N0L*M 

Nf»t*T) 

90LFT) 

90l*T) 

90L*T) 

NOl*TS 

NOIFT) 

NI)L*T) 

**OL*T) 

MOl*TS 

NOIFT) 

NOL*TS 

Nnt*T) 




T(J*N).XB*ZR*OX 
Y(J*«)-YB.2K*0T 
43. CONTINUE 

na 90 K*1»RNAX 
X(1*R)>«(2*R) 
T(1,R)— Y(2*R» 
S3 CONTINUE 
•ITU* 4 
ENG 


NOLFTS 96 
NOLFTS 97 
NOIFT) 9 i 
NOLFTS 99 
NOl*T) 6 1 
NOLFTS 61 
NOLFTS 62 
NOLFTS 61 
NOLFTS 64 


SUBROUTINE OUTFUmi 

CnnNON/C0m/i*AX*RNAX*JN,XI**X4AC4, AL*HA» G A4* 6 ARN1 * CN* OT»SfOJ« I FR T* 

* CH0*0»NCA*NC6»NCC»6A*4»0NE6A*NU*NL*IT*TAU,ITF9,ENT»FT0tT*FINF* 
<9INF*oINF,CINF*4CS*TN*CLUS#FT*ho«N*9N0SE*NCASF.NFUNC4 

level 2*X*Y*XET»XCX»XET*0 

't'** 1 * ^ * AO* 20)* ¥( 40* 201* VET (40* 20* 2t» YE X( 40*20* 2t» 

* YfT (40,2), 2), 0(40, 20) 

LEVEL 2, Q»f F,S»C, A9 

C0NR1N /CO*!/ 0(4(4*20, 4)kEF.L40,4)*S(40, 29*41*^14), AF(4,4) 

OlNfNSION 5L(40),CON(B) 

GO TO 11*2,3,4,5), L 

1 r ONTt NUE 

C...OKTFIIT FIOWPIELO OAtA 
9"S-0.F 
FFRFBX-O.O 

HTTN9.6AN/GAGm*FtNF/BtNF.0lNF**2*0*3 

WBTTE(6*U1) 

00 1? Y*l, R NAX 
no 6 J*1*J»AY 
EN«Ot J,K,4I *01 J,R) 

• M0.0N,X,1L*0U,R) 

U«0(l*ir,2)/0(i*K,lt 

V*0(i,R,3)/0(3,R*l) 

*( F4-R40*0,9*(U*U.V*Vn 
4T.GkR/0ANRl*F/R4a.(>,9*(U*U*V*Vl 
53.)0RT(CAN**/RH0) 

* -FB" 4*S (4T— 4T INF) *100.0/ HT INF 
1M»EU.(T,FEIM(I FEBBNX.FEB* 

• 3L.»K»FFM««2 

BL (J) -S09TI U*U.V*¥) / SS 

6 fnxTINUE 

on II J-3.JH4X 

»F( OK J),LE.1,C,AN0.SL( J-11 .GE .1.0 1 . 0* . ( 51 ( JI.GF.1.0. ANO.SL ( J-l) 

«.iF.i.rnpo to 12 

GO mu 
12 JSl-J 

JSIR05L-1 

COEF«(1.0-Sl( JSLN)) / (SKJSL l-SLI JSLOI) 
Y5L-V(JSLF,R).C0E9*(X(JSL,Kt-Y(J5lM,Kn 
TSL«YU5LN,RI*CPEF*(Y( JSl»K)-Vf JSlN,R)) 

*3(. ■! ,.V— X5L 
¥9ITE(6,11J) XSL , YS L 
II rn*iT»NUE 
J rONTlMtlF 

*«5-50*T(tHS/Fia4T( jnAX*KH4X)| 

«*ITE(4*1&7I FEBfBX.FNS 
•FTU* 4 

2 C0HTI4UE 

C...O'IT*!IT e Ann F CONSERVATIVE VARIABLES 
W*TTF(6,1>3) 
on 7 «-i,«hax 
V*I TP (6,104 I K 
"0 7 J- 1, JO AX 
CALL FFCOM( J,K»lt 
00 9 4-1,4 
S r ON (N I *G (N) 

CALL £PC0N(J,K,2t 
On 9 4-1,4 
4N-H.4 

9 CON (NNI -G (4 I 

7 49 HE (6 , 139 I )» ICON (N),N-1, 8 ) 

■ETUF4 

3 CONTINUE 
BETtl*4 

4 CnHTINUE 
4*IT5 16,109 I 

MFTTF (6,1091 (( J,K,X( J,R),T(4,R), (XsT(i*R,f)*XEl« J,R,T)*XET|J*R*I) 

* »I-l*?).0( J,K)*K-1,RNAV), J-l, JNAX) 

B£TU*4 

9 CpNTI 4"E 


/ 
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*ETU*M 

«C3 FnRNA7UM0.37X#3ZH<<<< CONSERVATIVE VMUUES >>>>» 

l r * FOM*Tr3H0K*»IZ//4f,lMJ.6It*ZHEl»lpX»mf2,13X,ZHE3,lCX»ZME4*13X» 

* 2MF1#10X,ZHF2,10X,ZHM,ICX,2HFW» 

105 «nRNATII5»6E12*4) 

107 Fn»H4TI>lH0<<<« X ERROR tN MT El 2 .4, 3 1, 22 HRNS 0* X FMQI IN HT 

* »E12.4*5M »»! 


1 W 0 enRNAT(lMl,lX#lMJ, 4 X#lHlt# 8 X,lHX#nx,lMY# 13 ¥, 4 MXl-T#eX* 4 MXI-X,aX, 
> 4MXl-Y,7X# 5META-T.7X.5HETA-X, 7X,5META-r, 4*.1MJ/I 

109 Ff)RNATf2I5#9F12,6l 

110 FOX MTt5H,t$l.,F7.9»3X*4>«Sl-,f 7,91 

111 F0RNATt//Z6M FINAL tONIC LINE LOCATION/) 

end 


OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUT*UT 




SUM"'JTTNE XHS 

en«"nN/CONWJNAI,KfUX, JP, KN, XN4C-I* ALPHA, ft AN, f; 41*1, CN.PT, SHU# tPRTi 
» CH0Xr)#NC*»NCB#NCr»4A#M»0NE6A,NU,NL#IT, TAU# I TE» » ENT# PTOXT# P I NF. 
< RlN r #OTN*#CINF#JCS#TN#CLUS#PT#HORN#RNOSE#Nf4$ r #NPUNCM 
LEVEL ?#0.EF,S#6#A4 

COMMON /C0N3/ Of 4J»2i>#4),EFf4:*4) #$f4G*23»4> »Gf 4 >#A6f4#41 
C...THJS SIJXXOHTINE COMPUTES TIE RIGHT NANO SIDE 1* THE DELTA FORI 
C... EQUATION 

C,,,FOPN e CONSERVATIVE VARIABLES AND OIFFE»ENCF. STORE IN THE S AXPAV 
00 1 K*2#KN 
00 2 J* 1# JM AX 
CALL E e CO M ( J* K* 1 1 
00 2 N-l»4 
2 *F ( J, Nl -G( N I 

C... CENTRAL DIFFERENCE E CONSERVATIVE VARIABLE 
00 1 N*l#4 
DO I J*Z#JN 

l Sf J,K#NI*fEF| J#1.N)-FF( J-1,N|I*M 
C...FOXP F CONSERVATIVE VARIAEL ES AND OIFPERpNCe* ADO TO PREVTOHS S 
C...AXRAT 

0« 3 J»2#JM 
00 A K’l.KNAX 
CALL E*CONf J,lf,2l 
on 4 N-l#4 
4 FF(K#N)>G(NI 

C.,.C*NT»AL OIFF'XFNCt F CONSERVATIVE VARI40L ? 
on 3 H. 1 # 4 
00 3 K.2#«1 

S f J.*#N»«-SC J#R»N)-ICF|K*1#N J-tFLR-l.N) ) *H 
i CONTTN"E 
RETUPN 
FNO 


RMS 

C0**1 

COM 

COM 

COM3 

COM 

RMS 

RMS 

•MS 

RMS 

RMS 


RMS 

RMS 

RMS 

• MS 
RMS 
•MS 
RMS 
RMS 

• MS 
•MS 
RMS 

• MS 
•MS 
•MS 
RMS 
RMS 
•MS 
•MS 
PM* 

• MS 


RMS 


\i* 

U 

1 ? 

13 

14 

15 

16 
IT 
;» 
19 

21 

{i 

•3 

?5 

26 

•7 


SUPPOUTTNE SHOCK X SMOCK 

COPPON/COM /iNAX»K1AX»JP#KH.XNACH#AL*MA.iUN.0A«ll,CN, , t#«mu#|PRT# COM 

• CMORO,NCA# NCP#NCC# AA#H#01FGi#Nl|»NL. IT,TAM,tTER,ENT#PTnRT,PINF, CONI 

«PINF,oi»*F,CiHF, JCS»T"#ClUS#*T#H0RH#RMO$f,HrASF#MPUSCM COM 

LEVEL ?#V#r»XET,XEX,XEY»D CO*? 

'•OHHON /C012/ Xf4)#20 l»VI4C»27lfKtT(43#2r*2>»v*Xf4u»2C#2l# CON? 

• VEV(43.20#2I#D(40#20I CO"! 

LFVFl 2#0#£F#S#C#44 CO*»l 

ronmi /CON)/ Of 40*20*41, EFf4)»4)»*f40»20»4)# 6(41*44(4,41 C0«3 

COMMON /PUV/ P(40#3)#PXI(4C)*RETA(4(<1*U(41#3)* , JXI(4L)*UET4(4)I» RUV 

• V(40*3I»VXT<40I*VETA(40)*R(40*3) PUV 

C aaat OMPUTf THE FLOW VARtASlcS ONE MS H INTERVAL 4*L0M SMOCK SMOCS 

•"S«C.O *MOCK 

OSfP* 3,0 SMOCK 

JPNaJMAV-2 SMOCK 

7KN-KNAX-1 SMOCK 

00 1 K« 1 # 3 SMOCK 

DO 1 Ja 1 # JM AX SMOCK 

kk«KM 4«-3 *k SMOCK 

Tal.tf /Q( j#KK#l) SMOCK 

R(J*K)>OI j*KK»l)*0U*KK1 SHOCK 

U(J#K)aQ(J#KK#2)«7 SHOCK 

V< J»K)aO( J«KK#3)P? SHOCK 

?2-0( J#KK#4I*0(J»KK) SMOCK 

3 P(J#K)a(E2-Oa5*RIJ#K)«(U( J# KIP*2*VI J* K ) *«2 1 1 «GANN1 SHOCK 

C...CONRUTF P-Xl, U-XI, P-ETA, U-ETi, AND V-6TA DERIVATIVES SHOCK 

DO 4 J* 2# JN SHOCK 

PVnit.tPt j*l#3)-RI J-l* 31 ) *0* 5 SMOCK 

UXtm-(UtjRl*1)-U(J-l» 3 11*0*5 SMOCK 


2 

3 

4 
7 




20 


4 VXtf J|-(V(J«1*31-V< J-l, 311*0. s 

SHOCK 

25 

PXIUI — PIM21 

Shock 

26 

UTIIl)*- U»IL2) 

smock 

2T 

VXim-VXIf2l 

SMOCK 

26 

•XI ( JMAX)a(3,0*P(JNAX#31-4,CPPt J1# 3 1 ♦•( JN1, 3 1) *0. 5 

Smock 

29 

UXl (JIAXl-f 3«0*Ut JMAI#3)-4,0*U t JN»3I*U( JMM#3 1 1*0,5 

SHOCK 

30 

VXIf JMAX).(3,&PV(JNAX»3I-4,0*VL JM#3)*VI4NN#31)PJ,5 

SMOCK 

31 

DO 5 J-lfJPAX 

SMOCK 

32 

*ETAL 41 - f 3. 0* • ( MI-4.D«Mj,mP| J#l) 1*0,5 

SHOCK 

33 

UETAI J1-(3,0PUf J#1I-4,0PUU#21PUI J# 1)1 *0,5 

SHOCK 

34 

VET A* Jl-f3.P*Vt J#11-4,3*VIJ#2)*V( J*lt»*C.5 

SMOCK 

35 

!F« J.EO.I.OR.J.EO.JNAX) GO TO 5 

SHOCK 

36 

•IJ#?I«PC4*1#3)PPU-1#3)-2.0PR( J#3I 

SMOCK 

3T 

5 CONTTNUF 

SMOCK 

16 

P(1*2J-PI2,21 

SMOCK 

39 

Pf JNAX#2)-3,0 

SMOCK 

40 

00 1 J»l» J- AX 

SMOCK 

41 


SMOCK 

42 

CaaaDETfRNINE SHOCK ANGLE D ELT4 - A RCT AN< T AT / 5T AX 1 J*KNAX 

SMOCK 

4 * 

OELTA-ATAM(-XET( J.K*21/XEX( J*K*2| | 

SMOCK 

19 

SD-STNinELTAI 

SMOCK 

4? 

CP*C°Sf DELT A) 

SHOCK 

46 

U1T-0IMFPC0 

SMOCK 

47 

itXAR-KeT(J,K#l)PU(J#3 1P*fX| J#K#1I*VL J»3I*XET« J#K,1I 

SMOCK 

46 

V«4*-rFTU,tf#2»*U<J.3)P*ETU»K,2lMVU.3IPf?TIJ.K#2l 

SMOCK 

49 

XCS-PAMPPC J#31 

SMOCK 

5f 

oTAU-HtPARpPYM JI-VRAR*PETA( JI>RCSP(UXtlJ)PXEK( J#K#1 )p 

Smqpk 

51 

» VXTU|PtETU»K#l)PUETA»JI*teXI J#K#2I*VETAU)*XFYI J»K#2l4 

SMOCK 

52 

> rVfJ#3l/Y(J#Kl|PFL0AT(JCSII 

Smock 

5? 

»2-P( J,31*PTAU*DT*0#Z*0,U*P( J#2» 

smock 

4 * 

TFIJ ,E0, JNAXIP2-2,PPUM#3I-P| JM-1#31 

Smock 

55 

IF<P?.IE,3.01 GO TO 6 

*MOCK 

56 

r«Gi»*l,C 

shock 

57 

X1»aS0»T(i. 5/GAN*f P2/PINFP7*G4NMHI 

SMOCK 

5* 

0SpCTM=*Xp»-U1T 

SMOCK 

59 

••*•{ J#1l 

SMOCK 

4C 

J#3I 

SMOCK 

61 

UP-Ul J, 3 1 

SMOCK 

6? 

V4«V( J#3> 

Shock 

63 

=1- PM /GAM-1 ♦3,5PRMP|UP**2*VMP*?I 

SMOCK 

64 

U2T-2,r*ll,u-XNXP*2 )*CINF/C(G4 m*1,C)*XNX|pU1T 

Shock 

65 

• 2 • • T NF • ( P 2 /PINPPG4NMl/?)/(l. j*GA1f11/»*P2/PINP| 

SMOCK 

66 

U?aOtHf PS0*P2*U7T*CD 

SMOCK 

67 

V2aOTN'PSnPCO-U2T#S0 

SMOCK 

66 

E?»p2/':*mm 1 *j # j*rj*(u2*p2pV***?I 

SMOCK 

69 

C... COMPUTE CONSERVATIVE VARI APLES AT SMPCK 

SMOCK 

70 

a.KMAX 

SMOCK 

71 

nt-1.3/0* J,K) 

SHOCK 

72 

0«J#K,l)aX2PDr 

SMOCK 

73 

Of J.K,2I-R2**I2»DI 

SMOCK 

74 

Of J#*,3»-R2*V2*DI 

SMOC k 

75 

Of J,K,4|af2*D! 

SMOCK 

76 

e,..lETEPMTM ANGLE OF XI-CONST LINE WITH X-4*I5 

smock 

77 

K*KN4I 

smock 

?• 

TMA»SfK£YI j#M#l)|-o,03ftCl) 7*7*6 

smock 

TO 

7 THf TA-l.«7i79633 

SMOCK 

60 

*0 T(l 9 

SMOCK 

41 

5 CONTTNM 

SMOCK 

*2 

TMf TA-ATANf Y!X(4#K#1I /XEYf J#K#1H 

SMOCK 

63 

4 '‘OHTTSHP 

SMOCK 

*4 

C.,,CO“PUTE SHOCK SPEED IN X 4N0 Y DIRECTIONS 

SMOCK 

45 

METAaTMET4*DELTA 

SMOCK 

46 

0*E-0S/CnSfMETA) 

smocn 

*7 

TF(AMSfOSF) ,GE, AMSI0SENJ1 JOS-J 

SMOCK 

46 

IFfAMSIOSEI * GE • AMSIOSEMDOS^p-DSE 

SMOCK 

•9 

»«S*pmS*0SE‘*2 

SMOCK 

90 

*ST»— QSFPCOSfTHETAI 

SMOCK 

91 

YSTaO^EPSlNfTHfTAI 

SMOCK 

92 

THETAaTMET 4*57,29576 

SMOCK 

93 

OELTAaOFLTA *57,2957* 

SHOCK 

94 

•FTA.META*57, 29576 

SMOCK 

95 

C,.. PROPAGATE SHnCK 

smock 

96 

*IJ#K|a*t J#K1*XST*DT 

SMOCK 

9? 

Yf J,K1-Yf J#K|*rST*OT 

SMOCK 

9 6 

Caa. ADJUST OTHER GRIO POtNTS 

SMOCK 

99 

DO 2 Ka2#KM 

SMOCK 

1DC 

7KFAC*FL04TIK-ll/7KN 

SMOCK 

13? 

X f J#*)-f Xf J»KNAX)~XU#1 )»*tkfac*x r J#11 

SMOCK 

102 

TfJ#K)af Yf J,KN4X)-YU#l))P7KFAC*TN»ll 

Smock 

103 

2 CONTINUE 

SMOCK 

144 

1 CONTINUE 

Smock 

105 

•MS-SDRTfPMS/FLOATf JMAXI) 

SMOCK 

106 

WRITE (6*1)2) I T# RNS# OSE N* JO* 

SMOCK 

107 

PETURN 

SMOCK 

106 
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4 CONTINUE 

VPITEI6#133I 4#F2#p| J»})»PT4lj 

srn» 


Utl FoRMATIIdH ITERATION# I4#4K#19HRMS OF SHOCK S PEED*. IPE11 .i.Rf# 
• 2CHMAXINUH SHOCK SPEE0-»E11.4»6H AT J.,12) 


1-3 fnt«AHlHC»AlHHE6*TIVE RRESSURE DETECTED 8V SHOCK AT 
* 3X,3MPN.,1PE10.3#1X#3HP0-,SX,E1C.3#3X,5 mmTAU.,E1C.3I 

?NO 


SMOCK 

KNOCK 

SHOCK 

SHOCK 

SHOCK 

SHOCK 

SHOCK 

SHOCK 



SUBROUTINE XIETAO ITFLAG) 

^OHMOH/rONl /JNAX#KHAX#JM i KN,XMACH#ALPMA#GAN,GAN>11#CN#DT#SmJ#TPRT» 
> CHORD* NC A# HCB#NCC# lA#H*0HEFA»NU,Nt.TT*TAU,tTER,6NT#PT0IT*PINf# 
••IMF. 0TNF#C1NF# JCS»TH#CL'JS»PT»H0RN*RNnSE*NC4SE*MPUNCH 
IfVEI 2»X*Y#XET,XEX*XEY*9 

PPNNOH /ea*2l Xl40*20)»Y|4C»23l*KET(40*2P»2)#XfX(49»2l»2l» 

* XFV(4D*2).*2I#D(40#2(}) 

• EVEL 2#0*EF»$,C*AB 

COMMON /COHS/ 0(4U*2L#4l»CF(4)*4l*S(43#2)»4)#t(4t#lR(4*4) 

"0 11 K-l.KHIX 
DO 11 4*1 » J NAX 
VETtJ.K'ifO.G 

* ET ( J #K » 2 ) »G*t 
11 CONTINUE 

JNM. )«-l 
VMHaHH-1 

C*. .CONFUTE X-Xl AMD Y-XII DXI AND OETA • 1 

00 1 k-i.knax 

DO 2 J-2.JH 

•FYIJ,*,?). (X( J.l.KI-XI J-1*«)1*P.5 

2 lEllMi2l*(TU«ltX1-V(M»()l*0i$ 

XfYU»K # 2U <-3.w*f<l.*>**.C*M2,*t-T( 3»KI )RD.S 
XEYIJHAI#«* 2)-(3.Q*T( JNAX«K)-4.0*X( JM*Kt*X( JMM*K)I«< .5 
*FY(l f K,2t« (-J.0*Y( 1#K)«4.C«Y<2#K|-Y(3#KI IO.« 

1 T£X(JM4X,K, 2!*(3.0*Y( J<*AKf KI*4.0*Y( JM»K).Xt JMN, K)I*C.3 
C... CONFUTE X-ETA AND Y-ETA 
DO 3 J»1 » JNAY 
DO A K»?,KN 

*FY(J.«»H« |X( J«K*1 >-X(J*K-ll) *5.5 
*EYlj,l,l).(-3.G*XCJ,l)*4.0*X(J,2>-X(j,3n*O.; 

»FT(J»*CN* », 1 1 - < 3 * 0*X( J*KN AX >>*.G*X(Jf«H)*X(J»KNNn*t.5 

*EXIJ»l»l).(»3.0*V{J»ll.4.G«Y(J*2)*r(J*3)l*D.' 

3 VFX( J**«4t# 1)«(3.0*Y< J.KfUT t-*.|)RY< j*XM|.Y( Jt*8M) IKtS 
f •• .CONFUTE. Xt»Y. TI-y p ETA-X, AMD £TA-Y 

DO 5 k*i«kmax 
DO 5 J* 1 » JH AX 

DT-1.0/IXfX| J#K*llMtY(J*K#2)-XEV(J**#l)*XEX( j.K*2)) 

"U»DI 

TF(I e LAG.F0.at GO TO 7 

C.. .ADJUST COHSFRVATtVE VARIABLES RASED OH NEV -'SH 
O'* 6 N«I#4 

D 0( J.M.HJ.Ot J»*»N)R>)( J,K| YC1T 
7 rONTIHUE 

C...THC GFO*- TR ! C JACOBIAN IS DEFIN'D HER? AND STORfO in THE 0 ARRAY 
DtJ,K»«DTI 

*PYIJ,K,ll«X£XlJ # K»n*DI 
X«Y( J,«,1|.-XEY( J*K.1I*DI 
*FXt J,K*2)«-XfX( j*K*2 >*dt 
5 YETI J.v*2)*>EY(J.K.2)*OI 

C.. .REFLECT "FTtlCS AND D I R£NDENT VARIABLES ANQiiT PLAN? OF ST MMFTRY 
IFtITLAR.fO.0) GO TO « 

DO 9 K-l.KNAX 
DO- (•l.GIF* JCS 
Dfl»»l-0(?*K1FOD 
«EXU •K*l>*«XEX(2»K.l) 

TFY(1»M*1UXEV(2 P K.1) 

«EVIl»K # 2fXEX(2»Kf 21 
»f YU.K,2»--XEY(2.K*2» 
or ie h-1,4 

1#. 0(1»K*N).q(2*K»N|*DP 
9 0U.K.3»--0(2»K.3J#00 

9 CONTINUE 
•ETU*N 
*ND 


XIETAO 

CONI 


COM2 

COM2 

CO"? 

C0*3 

CflHS 

XIETAO 

XIETAD 

XIETAO 

YTFTAD 

XI FT AD 

XIETAD 

XIETAD 

XTFTAD 

XIETAD 

XIETAO 

X t FT AD 

YTETAD 

XIETAD 

xtftad 

XT FT AD 
Xf?T*o 
XI r T AD 
XIETAD 
Xt*TAD 
XTFTAD 
XI5TAD 
XIETAD 
XIETAD 
XIETAD 

X I *T AD 
XIETAD 
XIETAD 
XIETAD 
XIETAD 
X I ET AN 
XTETAO 
XirTAD 
XltTAO 
XIFTAD 
XT ET AD 
XI *T AD 
xie t ad 
XIFTAD 
XTFTAD 
XIETAD 
XT ET AD 
XIETAD 
XTFTAD 
XIETAD 
XIETAD 
XIETAD 

XTFTAD 
XIFTAD 
XIFTAD 
XI ETAD 
XIETAD 
XIFTAD 
XIETAO 
XIETAO 
XIETAD 
XTFTAD 


SUBROUTINE MARCH 


MARCH 


2 


2 


Common /inVAMSRK.ETAtMI,PHIFt41),DTIll41I.DTTLE(«L1.ftETA»TF(2*t 

COHNDM/JOE/ZL1#CF1,CFZ#ZIF*ZTRAN,DZTRAM 

LEVEl 2» RHO*P#U# V* V»R0R*R06Z# VIHF# WTNF# ROB»H» « B* * BZ* >9 pH* OTOPH# 

R CT*DTPZ»DTDR# ACT# ICOMST* GAN* CONST* N» EGON. RStRS 7 *FSPHt»RSTfFS7T» 

'•ONNDN /FVAR9/ FHQI24.41I* P(24,*l), U(24,41), VI24.41I# W(24*41l* 
*09(411 # *087(41) » VINFUll , VTMF(4i.j , 

RQ8FH( 41 ) * *8(41) * *87(41) » A*PH(411 » 

OTOFH (24# 411* 0 C T 1411 » DTDZ ( 24# 41 ) , DTOP (41 ) # ACT(4ll # 


•SZ(41 1 

CONNDN/$VARB/T»Z 


• FSFHI(A1>» *ST(4l) 


CONS T( 53 I .MREFON 


S VAR B/T# Z # PMT . DT # D» 

ZENO # FI # ALPHA • GAMMA » S IG» 

TAFE2 # 0ISK1 # ALFH , DIS*2 • SlG« 

PZD*N # ZM » T"WD » tnld . TNW 

TTNL # Rf , *Z # NTFHT * NTT 


•SZTUll# »SFHIT(41) 


-F-4I # NPNIl # NMNI2 # N*NI3 # N*N-1 

HT , NTi # NT 2 • MT3 , *H I F 0 

F HI F » METHOD# l AG • NBC » FIN' 

OTNF, GASCON »NRE At* NPUNCN 
CDMNPN /ONSTRN/ Z*L0 T#HZ*MD»n7ADD#NX*10T 


D7 » DPMI » 7TNT . 

StG»A # X“AC H » TA»El » 

Si G* » NMRNT * 07DT # 

TNW # TML » TTMW # 

NTT » K PH I * NTTFP # 


N*NN2 » NMH-3 
NCDNE # RADI 
RHOIN # 'JTNC 


CALL SFTDAT 

CALL g;dN3( 0#PHIP»NPHI#?#BR#R«?»R9P4»T**NT) 

SI GNA.AT|N(C e 2) •37.29574 

trONST(4B).0 

CALI INIT* 

TF (T .GT. 7TN0) GO TO 19 
•*TTE»-ie&.N7E“0 

HPITr(fc*B13 ) 

STpCTT-NT-i 

Rmprtn(2) 

DO A IUM-1#NITFR 
TfOMST(5)-JUQI 

...... ...COHFMTE AUTONATIC STEPSI7? 

Tf (IUDT .EO. 1) 60 TO 3 
Tf (*DDC JUD I# I CONST (49)). HE .T; I GO TD 5 
3 c*Ll PTGFNN 

TF l»>7 .it. 1.3) GO TO 3 

'>7nr«S T *S7F 

ot.OTOT.ot 

DZn»N«o»/D«T4 

C ONTI N‘*f 

CALI 0 T f F 8 

W* TTF DATA FOR RERUN ON TA*E9 
AND % TOP F IN ARRAYS USED ■ V CONTOU® ROIITTN'S 
r At l OUTPTN 

T F (7 « GT. TEND ) GD TD 19 
'•riNTTN’lE 
1» ♦‘ontinuf 

• •••••••ALL Data REQUIRED fob rerun of TnTK rpr js NOV nN TApta 

END F TL F 0 
RETURN 

6T0 fdrm#t( I wiT 754X* 20HMARCNTNG CALCULATION 75 at. 2f ( IN*) ft / 

• T»*8HSTE* ND..4X# 19HD0VNSTRE AN LOCATION. 4 X, ISHHOOK ORDINATs 

• *X»14HSM0CK ORDINATE/) 


kijbrouttnf 8NDRYNIKI) 

C0MNON/ENTR0/S(41).78S#7FlD#IT*RT8,ITFR 

LEVEL I* RH0*P#*»»V»N.R0*»R087.VlNF,*tNF 

mct.dtoz.dtpr. ACT# I CONST# GAM. CONST* nr 

PJR HI T 

COMMON /PVARR/ >HO(2A#411# R(Z4#4D* HI 
*DM(41I * P OB Z( 41 1 » VINf (41 ) 

R0RPHI41) • #8(411 

DTDPHt24#41l# 8CTI41) »0T0Z(2*»4 

ICnNSTISO) • C-AM(2 :i , CDNSTI50 

*SZ(41 ) , PSRMKAl), pST (41 ) 

COMNON/SVARB/T* Z # PHI • DT . 

ZENO » FT • ALPHA * GAMMA * 

tape ? * oiSKi • alph » disk* • 

DZDPH * ZM . TM VP , TMLD » 

TTMl , »Z # 8Z . NIPMt , 

NPHT . Nf HI 1 * NPHI 2 * NPHI3 * 


TF*NC4S e ,NTOSOS 
*R08RH,R8*»B7 .FmR‘ j »0Td*h* 

«r,ON*RR* RSZ»PSPHI*RST#*S7T# 


24**11* V ( 2 4 * 4 

» WIMF(ah , 

* R8ZI41) » 

1)*DTDF(41) * 

) .nrJGDn , 

• RS7T(*l), 
37 * D*HI 

SIGMA * IMACM 
SIGm , N*F N T 
TNV > T"L 


NT » NTI # NT2 
•MIF # METHOD# LAG 
QlNF. GA$CON#NREAL#N PUNCH 


NFHM1 , NFHM2 
RHIFtl . NCONE 


P8PM(41) # 
AC T ( 41 ) * 

PS 141* # 

RSFHTTI41) 

» MNT # 

# TAPF1 » 

# OTflT # 

# TTMV , 

» NITER # 

# NPHM3 » 

» RADI , 

# UImf , 


V 
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iHMENSTON RK13I411,PKl4l41l,PK21l41l,RK22<41l,PKZ3t4U 

LOGICAL IT2N0 

arstniai-asiniai 
on rn ( io«18* 11 i,ki 

10 CONTI NUE 

C..WE1K OR SHALL ANGLE CORRECTIONS (USES *R AN DTL-N* R RELATIONS) 
Of) 9 K*3»NPMt 

•K4*l*0/SQRTIRBI{KI**2«1.0*{>BRHm/RRtK|)«*2) 

PK1*««R?|I(|*PP4 

PK2»PN4 

• K3— RR»H(K}/ftB(K)«PK4 
IT?no. .RAISE. 

0S0-UI3, «t**?*Vl3,<l**2*V(3,K) ••? 

IF(Pt3»«>.6E.r,&l GO TO 4 
C — NEGATIVE SURFACE PRESSURE 
ICMECfl 
«*l.C-7 

IP IN -FQ. 3) WRITE 16,10 1 X, P I 3f K» *RHO 13#* I » M| 3. K | , V (3 ,K ) 

’<)»«)•* INF Ml. -Q. 5 *G AH" A 1 
RMnn # K )«(0 (3,K|/S(K ))*♦( l.C/GANNA) 

03«-S 1»T( 1.0-PI 3, K1 7ft HO (3, KM 
"(3»Kt-U(3, N)*Q3K/OSOR*C,5 
V<3,«)*VI3,Kl*Q3K/!)SQ*U-.5 
WI3*K)«W(3»K|*03K/0S0**:«S 
3SQ-QJK*R2 
4 »*f>»»TTNU6 

TFCRU0(i,4) .62. 0*0)60 TO 5 
Kmfc*.? 

*•1*0-7 

*F l« .EO. 31 W»ITE»6#100) ««•! 3 f Klf»HO(3*R1.ll(3»K)»VI3 # P) 

• |.(o 0,(0 fst*} )*H1.0/GAHn| ) 
01«*SORTtl.o-Pl3,*1/RHOt3,KII 
Mis.m-uf 3,n*o3w/oso**o.* 
vn,KI-Vl3,*t)*03K/QS0**f .5 

V(3,N )-Wl3,K) *03K/0$0**( .5 

5 CONTI MU* 

P* 3 -S OPT I OS 0) 

PN6«|PKI*"( 3,K> ♦PN!*V I3»KT*RK3*W13»K))/PK5 
•«7*»«SIN|RR6I 

RK«-G4N(H*P(3,K )/RH0|9,KI 
»K0*M)M1/PKI! 

•RIO- *<9-1.0 

!*(«U • GT , 0.0160 TO 6 
TCHECR-' 

R-l.t-7 

T« 1* • E 0. 31 WRITEI6.10C) X, P (3, K ),RHC!!3#KI , Ul 3,K), V|» ,*) 
PPIOO.? 

PR 9-1 ,5 

RRA-PR5**2/Pt(9 

• Mf)t3»K)-6ANIl)*Pt3#KI/PK8 
91K*SQRT(1.0-»<3,KWRMi)(3,K)l 
il (3»« 1*111 3»Kt*Q3KSOSQ**C«» 

VI3*m-V(3* KIP03R /0S0**0. 5 
H»3,K 1-V(J, KI*Q3K/gS0**C.f 

6 roiiTfwjK 

PR 1) -r,ANRA«PK97S0RTIPK10) 

PR] 2-GARPA*PR9*MGANPA*l.ri*PK9**2-4,:*»R101 f {4.C*PR1C**?1 
•RlHR|-P<3fR»*1I,0-PKll*PR7*PR12*PR7**2» 
p ACTn*»3 , 5*GANHA**K9/tR*lQ**3.51 
TERm1-(C.A«NA*1,0)*PR9**4/6.0 

▼EPN2 — (3.>*7.L*6ANNA-2,;*GAHNA**2 )*PR9 **376.0 

TE»-3- 5*C*lGAHNA*l.ti)*PK9**2/3iO 
TPRN4-4.073.0— 2.0*PN9 

C OFF* 3-FACTOR* I TERN 1*TERH2*T*R"3*TERH41 
PTE 57 -PR 1 3 ( K1— P|3,K 1*C0IFF3*PR7**3 
TP (ARSI-KTI.LT.ABS 16.911 160 TO 123 
V*1 • SORT! PRfl) 

CHL PNTURNtlCMl,RK7,R2*l.NTTS»P>ANNA) 

PTRIt? ■ P13#R)*P2R1 
•TEST - RTRIIE 
1 23 CONTINUE 

• KIMO-BTf ST 

P« Ml K1-(*R13TR) /ST K)1 *M1.C /GANNA 1 
•R13-S0RTI1.0-PK131R) /RK14IKM 
M16*p«6*PR5*P<U 
•R17*U(3»R1 ♦PK16PRN7U) 

PR1B-Vt 3*K)-*R16 

• Kl9-WI3»K)*RK16»RBRH|K1/RMK) 
*K?0-S0RTIRKlT**2*RKlfl**2*RK19**2) 

•R24*PK13/PK2t' 

PK21lKl-RK24*RK17 

PR22(N1*PK24*PR18 

•*23m*PK24«PKlf 

9 CONTINUE 

U CONTINUE 


BNORYN 

6 

C--BESFT BOOT VARIABLES TO THOSE CALCULATE 1 ) BY ABBEYTS SCHENE 


BNORYN 

n 

BNORYN 

7 

00 12 R * 3# NPMI 


•north 

92 

BNORYN 

B 

p(3»K1-PK13(K) 


BNORYN 

93 

BNORTN 

9 

RH0I3.K1 •PN14IKJ 


BNORYN 

94 

BNORYN 

ie 

Uf3»')*RK2l IK) 


BNORYN 

95 

BNORYN 

ii 



•NORYN 

96 

BNORYN 

i? 

V(3,*)-RKU(KI 


BNORYN 

97 

BNORYN 

13 

12 CONTINUE 


BNORYN 

99 

BNORYN 

14 

on TO 21 


BNORYN 

99 

BNORYN 

15 

18 oontINUE 


BNORYN 

100 

BNORYN 

16 

C 


PNPRYN 

103 

BNORYN 

17 

C.. APPLY REFLECTION PRINCIPLE AT PLANES OF S Y NNF TR Y 


BNORYN 

172 

BNORYN 

IB 

c 


BNORYN 

101 

BNORYN 

19 

on i b-i#2 


BNORYN 

104 

RNDRYN 

20 

* -6— < 


• NORYN 

10« 

BNORYN 

23 

l-NRMI*K 


•no* yn 

106 

BNORYN 

22 

N-NPHT-K 


"NORYN 

177 

BNORYN 

23 

no 1 J-3»NT2 


BNORYN 

10" 

BNORYN 

24 

•MOU.P)*RHOI1#»I 


BNORYN 

179 

BNORYN 

25 

•«0| J*l.)**NOI J»N) 


BNORYN 

ISO 

BNORYN 

26 

PIJ#KI-P(J»HI 


•NORYN 

111 

"NORYN 

27 

•C J#L 1*P< J» N1 


BNORYN 

112 

BNORYN 

2* 

HI J,NI-UtJ, N| 


•NORYN 

113 

BNNRYN 

29 

ul J.l f *U| J, N1 


•north 

114 

•NORTH 

3C 

VI J»K1-V(J,N| 


BNORYN 

115 

B NORTH 

31 

VIJ,L1«VIJ,N| 


BNORYN 

116 

•NORYN 

92 

W( J.N)— W(J.N) 


"NORYN 

117 

BNORVN 

33 

Vt J,D — V< j,N) 


"NORYN 

119 

BNORYN 

34 

W(J*31-.: 


•NORYN 

119 

•NORYN 

35 

N 1 J » N*NT | -5 .c 


PNORYN 

120 

BNORYN 

36 

1 CONTTNtlf 


•NORYN 

121 

BNORYN 

37 

21 C ONTT NllP 


•NORYN 

122 

BNORYN 

18 

; P0*NA7im. # 4RMNEr.ATIVE PRFSSURF OR 0?N$?TY ON •OOr Of TE CTcO BY * 

BNORYN 

123 

•NNPtN 

39 

* 11 urn ORY AT X-,F7.1/3«»3HR9-,lPE11.3*3X,5HiM0«-,E10. 3»3X, 


BNORYN 

124 

BNORyn 

40 

* 4HV»B-.rl0.3,3X,4HVRB-,ElC.3) 


"NORYN 

125 

BNORYN 

41 

RETURN 


BNORYN 

126 

BNORYN 

42 

•NO 


BNORYN 

127 

BNORYN 

43 





NNORYN 

44 





BNORYN 

45 





•nnry* 

46 





BNORYN 

47 





NNORYN 

4B 

•MBRQMTTNe nfPFR 


OIPFR 

2 

•NORYN 

*9 

LEVPl 2,ETEN* f EC^FO.GC* 44 . 


CV4RB 

2 

NNORVN 

5** 

COnnon /CV4*B/ ET£N*T4,2«.,41), E0(4,M,41t, 


CV ARB 

3 

BNORYN 

51 

• PH4,2*,*l) , 6:i4»24,41) , HOf4,24»4i) 


CVARB 

4 

BNORYN 

B2 

t EVPt 2. •NO*P,U#V#W,RQB,ROBI, VTNP,WINP,R0«PN,RB,RB7#R"RN,0TDPM» 

PVARB 

2 

pnbryn 

53 

* BCT, nT07,0TOR, ACT, I CONST. GA-, CONST, NR !Gn^,R9,R?7*RS *41, DST, 

• S7T, 

• YARN 

3 

BNORYN 

54 

* # <*HI T 


PVARB 

4 

PN HR Y N 

55 

“ONNON /PVARB/ P HOI 24 >41 1 « »<24,41 1, 01 24,411 , VI24.41I, WI24.411, 

PVARB 

5 

BNORYN 

56 

• R0BI411 » R0«7( 41 ) , VTNFMil , WTNPI4H , 


• YARN 

6 

BNORYN 

57 

• ROB* HI 41 ) , RB 1 411 » R 9 7 1 4 1 1 , B»*Hf4ll 

, 

•VARB 

7 

BNORYN 

5 B 

* 0TPPHI24.41), •CTI411 .0TO7I24M1) .OTOPI 411 , ACTMH 

, 

• VARB 

■ 

BNORYN 

5«> 

* ICINSTtSkl , G AN IE 1 * 1 , CONS Tl SI ) .NRfC.nN , RS 141) 

» 

• VAR" 

e 

•NORYN 

60 

• *S 7 1 41 1 , RSPHTI411, RSTI4J.1 , RS2T|41I# RSPHITI4 

: i 

PVARB 

10 

BNORYN 

61 

^onnon/SVAR B/T.7 > RH1 , OT ,0* , OPHI , 7TNT 


SVARB 

2 

•NORTN 

6? 

* 7EN0 , pi , ALPHA , GANNA * SIG-A , RNACM , TAPfl 


SVA*B 

3 

BNORYN 

6? 

• TAPE2 , OISC' , At PH , 01 S < 2 , M«N . NPRNT . OI^t 


SVARB 

4 

•NORT" 

64 

• 07 OPH , m , TN VO , TNL 0 , rnw , TNL » TTNW 


SVARB 

■ 

BNORYN 

65 

• TTNL » R7 > B2 , NTP«T » NTT , rp^I , NITf» 


SVARB 

6 

•NORYN 

6 1 

* MRHT , NRHH , NPHI2 , N»HT3 , NPH M 1 , NPHN? , NPHN 3 


SVARB 

7 

BNORYN 

67 

• NT , NT; , NT2 , NT3 , “HIPO , NCONE » »AOI 


SVARB 

B 

BNORYN 

6* 

* PMTP , NE7H0D, l AG t NBC » PTNP , R u 0 1 N , UTNP 


SVARB 

o 

•NORYN 

69 

•QTNF, GASCON, NREAL.N PUNCH 


SVARB 

If 

6N0RTN 

7C 

C..F3R- CONSERVATIVE VARIABLES AT *U •OINTS 


OlFPR 

6 

■NORYN 

71 

o 41 1 TOrnN(u) 


OtPPR 

7 

»NO*YN 

72 

00 1 K-I.NPMT 


OfPCR 

9 

BNORYN 

73 

no 1 J-3.NT2 . 


DIPPR 

9 

BNORYN 

74 

0" 1 N»1 » 4 


OIFPR 

ir 

BNORYN 

75 

IP(J.=9«NT2) GO TO 2 


0 1 CP • 

13 

BNORYN 

76 

C-.PREOTCTOP STEP AT *OOY AND IN PlElO 


Of FPR 

12 

•NORYN 

77 

•TENPIN, J,KI-EV(N, JpK 1-I070T*(FG(N, J* 1 , < ) -FOI N, j,K|| 


OIPFR 

13 

•NORYN 

78 

* *070PH*|GOIN, IpKPlI-filIN, J,N))*02*Mf IN, J,K) 1 

OlF'R 

14 

BNORYN 

79 

fO TO 1 


01 FPR 

I! 

BNORYN 

9C 

2 CONTINUE 


OIFPR 

16 

BNORYN 

81 

C..PRPOICTO* STFP AT SHOCK 


OIF** 

17 

•NORYN 

92 

ET£nb<n»J,<1-Ew(N,J,K)-(0I0THF0(N,J,K1-P6<N*J-1,KH 


0! *•• 

IB 

BNORYN 

B3 

• ♦070PH*(GCIN, J,B*n-GOIN,J,<n*07*HCIN, 

J,K ) 1 

OIFPR 

!« 

BNORYN 

B4 

GO TO 1 


OIFPR 

20 

BNORYN 

B5 

1 CONTINUE 


OIPFR 

21 

BNORYN 

B6 

7-7*07 


OIFPR 

22 

BNORYN 

B 7 

r.. DECODE CONSERVATIVE VARIABLES 


OTFFP 

23 

BNORYN 

88 

CALL I0CPNI2) 


OIPFR 

24 

BNnRYN 

B9 

C ** CALC’L A T E PRPOICTEO SHOCK VALUES 


OIFPR 

25 


90 

CALL SHOCKNli) 


OTFFR 

24 
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■•“ l f2i 4T 5JS?B wxc f * CT0 *' ms£o 0M N£w ^ of,v * H5 ?Mocit cEO"fT*T 

*A»PU*S PUN* OP SYN3ETPT POUND Alt Y CONDITIONS 
C4ll «ND»VN(2I 

• *OPN TNTCMIOUTE CONSERVATIVE VA*IA BISS AT ALL POINTS 

r All tOCONtll 
00 J KPHIO.NPHI 
nn 3 J-3.NT2 
on 3 N*l,4 
K.KPHT 

•DISSIPATION FUNCTION 
OISS-0.0 

IF CCONSTUJ.NE.e.a .OR. CONSn;i.u?.C.oi 'Alt OISSPN(N,J,K,OtSS) 
TMJ.'Q.B) 1*0 TO 9 
T*| J,?Q.NT21 60 TO 5 
•CORRECTOR IN FIELD 

/If!! l Vf' ,n “ t * 5M50,M ' J »' t >* ET E">« M »J»N>-tM3TMFo(N,j,K» 

<"*«>» nun 1ST I 

*iO TO 3 
CONTIN'If 

• CO** EC TO* AT SHOCK 

•''^'^•"•‘♦''^PNPIGOIN.JpICUCOlNU.K-llUOZPHOlNtJ^KIUOISSI 

'•PNTIN‘1* 

.CIPpecto* at BOOT 

^*T*NP(H»J.K|.e.3P(ETE«PtN.JiK1*£0(N,J,KI-(nrnT*tF0(N,4,K»-F0CN,3.K 
***JJJ^*<S0«N#J#KI-6t tH,3,K-ll U0Z«'<)(N,3,ir)U')tSSt 

• 05 COD? C O^S E>V ATT VE VARIABLES 

CALL ncON(Z) 

• CAl r III AT* CO*R ECTED SHOCK VALUES 

r ALL SH^CKN 12 1 

•CALCULATES GEOPETR IC FACTORS BASED ON DL* BOOT AND NEW SHOCK GEQOETRY 

• resets *ony variables ! 

CALL 0NTJPTNC1I 

• ALLIES PLANE 0* STNNETRY «OUNOARY CONDITIONS 

CALL BNflRYN (2 | 

» = TU*N 
*N0 


Sl)N* n UTT HF OtSSPNIN, J»K,OI$SI 
LEV'l 2» ETE«p,Eu**:»6C*H0 

CON«*ns (CVARN / ETENP(4,24,41I, £9(4,24,411, 

• FaU, 24,411 • Gt(4. 24,4*1 • «M4, 24,411 

'■0" , »0H FTDVARK/RK»ETAC4n,PHIPUlI,DTIL (411,omM4l1#PETA,TP(24) 
LEVEL 2* *H0. P, U, V, W, RON, ROAT* VtNF»WTN*,Rn4M,»P,B3T»RA»M,DT0*H, 

♦ »C**Om, OTDR, ACT, t CONST, CA*. CONST, nr CG nn,ts, RS7, RSPHI, RST,«S »T, 

♦ *S # HTT 

^ONNOH /PVARB/ *Ma(24,41l. P(Z4,4l), U(24,41l, V(24,41», W24,41), 

• ROMAl! , P09M41I , VINFU11 • WTNCUll , 

• *0*PH(4ll , P N ( 41 1 , R9TI41I # RPPHUl) , 

• nTrPM|24„AU, RCTI4U #nTDM24.41l,nTDR( 411 . ACTI41I , 

* TCDNSTtSCI * GAN C 2 C 1 , C0NNTC50) ,NR?GON , PS(4i1 , 

* *SM41» , RSPHM41J, PSTI41I • RS7T(411, 0S*MTT(411 

'•ONNOH/SVAA B/T,7 , PHI , OT * 0? , 0»HI , TINT , 

* 7 END * PI , ALPHA , GANNA , STG*M , XNAC" , T APF1 , 

* TAPE 2 * DISK 1 , ALPM , 0T$K2 * SIGN , NPRHT , 07"T , 

* 070PH , 2N , TN|fO , TNLP ♦ TNV , TNL # TT-V , 

* TTNL , R2 , PI , NJPHI , NIT , KPMI , NITER » 

• NPMt , NPHll # NPHl 2 » NPMTJ , HPHNl , HPHN2 , NPMKJ , 

• NT , NT1 , NT2 , NTS # *M7*D , NCONF , RADI , 

* PHI F f METHOD, LAG , NBC , *INF * RHOIN , UINF , 
*0TN*,G4«CnN,NREAL#NPIINCH 

C 

CONST ( 4) <0 , LAX OANPING 

C . . .. .. CONTTtAI-ft , NO OANPING 

CONS Tl 41 > | , A TH ORDER 0 AN *t NQ 
C 
C 

IF(C0NSTt4l 121,1,23 

C.. .DISSIPATION TERN IN THE RADIAL DIRECTION 
29 TFfi .GE. 9 • AND* J .LE. NT I GO TO 3 
TFIJ.LT, 51 60 TO 7 

JO* NT 

GO TO 6 
7 JD*5 
GO TO 6 


OTSSPN 


f VA*N 


CVARN 


CVARN 


IOVARN 


PVARN 


PVARN 


py**N 


PVARN 


•V AR* 


PVARN 


•V A* N 


PVARN 


• VARN 

10 

SVARN 


SVA»N 


SV AR 3 


SVARN 


SVARN 


SVARN 


SVARN 


SVARN 


SVARN 

10 

OISSPN 


OTSSPN 


"ISS*N 


0ISS*N 

10 

OISSPN 

11 

OISSPN 

12 

OISSpn 

13 

OISSPN 

14 

OISSPN 

15 

OISSPN 

16 

OISSPN 

IT 

OISSPN 

13 

OISSPN 

19 

OISSPN 

20 

OtSSPN 

21 


9 JO* J OISSPN 

6 DISSP— C0NSTI4I*D,01*<E0«N, JD*2,KU€DCN,jn-?,*c»-4.r*IFf C N, JO + 1, K I OISSPN 

• ♦E0IN,J0”1 *KJ I *6»0*E0(N,JD,Kl I OISSPN 

GO TO ? OISSPN 

21 CONTINUE OISSPN 

I*(J .GE. 4 .AND* J .LE. NT11 GO TO 53 OISSPN 

IFfJ.LT. 41 GO TO 70 OISSPN 

JP-NT OISSPN 

GO TO 6C OISSPN 

70 JD*4 OISSPN 

GO TO 6'; OTSSPN 

3C JQ. J OtSSPN 

60 DISSP— CONSTI4|Pl.l25*fEOIN,JO*l,K)PFDIN, jn-l,K»l-g.23*EOfN,JD.K1l OISSPN 

GO TO 2 OISSPN 

I »ISS»O.0 OtSSPN 

C OISSPN 

C OISSPN 

C...... C0HSTI3I <0 0 LAX OANPING OISSPN 

C n N$T(S) *0 » NO OANPING OISS»N 

CONST! 5I>0 0 4TH OPOE* OANPING OtSSPN 

r OISSPN 

C OISSPN 

2 I*C CONST (31 131.3*11 OtSSPN 

C*. .DISSIPATION TERN IN THE NFttoIANOl OT*eCTTON DTS'PN 

31 CONTINUE OISSPN 

T F I K .GE, 4 .AND. K .LE. NPHNUGD TO BP OI*SPN 

I F ( K ,LT. 4IG0 TO 100 OtSSPN 

Kr.N*H*l OtSSPN 

«0 TO 9; OISSPN 

U. «p-4 OtSSPN 

Gn t* on OISSpn 

«... «A.« OT*SPN 

9! OINSP*. CnNSTI5l*(.lZ5*(Ev(N, J, KD*11 »5 0( N, J.KD-11 1-0.?3*EC (N, J.KDII OI*t*N 

ftrj TO 4 OISSPN 

II rnNTINM* OISSPN 

T*(K.*0.31 PU,n*P(J.5l Of ** PN 

IMS. *0. NPHH PU,NPMI21*PU,NPHN2I OISS-N 

»F1.4NS(p|J,y*21-2.v**(J.K*11*PU.K1 )/(p(J,K*?W2.D*PU.F*1HP( J.* OISSPN 

•II OI*SPN 

• F2 .*■*(•( J,K. 11-2 ,0*PU.KUP(J,K- lit ft •( J.K»ll«2.0*Pf J.KUPt J.K»1 OTSSPN 
*11 OI*S*N 

•F3*A3S*pIJ,K»-2.0*p(J.k-“1»*f( J.K-21 W ( pIJ»K1*2.0*p ( J,K-l 1*P ( J,«-2 OUSPN 
*M PTSSPH 

*IS$PO.57DETA*Ct»Fl*PF?1*tE0(N, J,K*ll-50fN, J,Nl1- OT«SPN 

• CP*2***Jl*(5t (N, J,K1-E0(N, J,«t-ll1 HCONSTt* 1 njss*N 

An T" * OISSPN 

3 HIS?*. o,0 OISSPN 

* niS**OTSS*POlSSP OTSSPN 

R Y TURN OTSSPN 

-*mi» OTSSPN 




42 

43 

44 

45 

46 
4 Y 
44 
49 
JO 

51 

52 

53 

54 

55 

56 

57 
53 

59 

6J 

61 

62 

63 

64 

65 

66 
6T 
6* 
69 
TO 
71 


C 


S’l* RTtjTI NE ETGENP *T GPMN 

CON«ON/CLUSTR/*J,Xl(241,TXI(241*TXIT(?41 CLUSTR 

■n""^ /IDVA*3/«K,ETAI411, PHIPI41 1.DTIL (411,DTILE(411,0ET4,TP(241 t D VAR 3 
L*V«l ?, Mn,P,U,Y,N,R1N.RD*7,VINF,WIN*,RO**H,R3,t37*R"*H,OTOPH, PVAR3 

• NCT.^TO’, DTD»,ACT,ICOHST,GAN,CONST,NRFPOH,tS,RS2,PSPHT,fST.PS2T» PVAR3 

• PSPHfT PVARN 

C QNNON /PVA*6/ PHD (24, 411, P<24,4ll» UC24,*11, V(24,4H, V(24,41l. PVAR* 

• •n*(4U , P03M41I , VINF(4|t , WtNF(411 * *V At 3 

• *03PM(41> * R B 1 411 , *32(41) , R4PHI41) * PVARN 

• DTflPH (24,411. 3CT (4 1 1 , DTD7 ( 24, 4 1 1 , DTDR ( 41 1 . ACT(AH • PVARN 

• TON ST ( 56 1 . GAN(201 , CONSTMD) ,mregON , R$(*11 . PVARN 

• * SM 41 I . RS PHI ( 41 1 , *S T( 4i> » RSIT(nI), PSPHTT(4)1 PVAR* 


C0*Nn«i/SVARB7T,r 


PMT 

OT , 

nr 

. DPMI , 

ZTHT 


SVA*N 


TEND 


PI 


ALPHA 

GANNA , 

SIGna 

« XNACH , 

T A*E l 


SVARN 


TAPE2 


01 SKI 


ALPH 

DTS*2 , 

SIG* 

, NPRNT , 

D70T 


SVARN 


Ml>* M 


IN 


mvo 

Tnlo , 

Tn y 

. T*l , 

TT"V 


SVARN 


TT*l 


RZ 


P7 

► NIPHt , 

HIT 

0 KP HT , 

NITER 


SVARN 


H P H I 


NPHll 


N*HI2 

» HP HI 3 . 

HPH*l 

0 HPHN2 , 

N*H»3 


SVARN 


HT 


HU 


MT2 

> HT3 , 

•MI*D 

, NCONE . 

RADI 


SVARN 


PMT* 


NETHRO, 

LAG 

► NNC * 

PTHc 

• NMOIM , 

UTNF 


SVARN 


*DtNF, GASCON, NREAL.NPUNCH SVAR3 

«...K4*1 INPLTS EIGENVALUES AND STfPSTT* EIGENN 

TPPNT.K0NSTC4I EIGENN 


SIG1»N*0.L Hf*NA 
STG34N.0.0 EIGENN 
DO l K«3,NPHI *IG*NN 
00 1 J-3.NT2 EIGENN 
T* X I ( J 1 EIGENN 
R*T*(R0*(*1”N3|K)1*RP(K1 ETGfNN 


H 


H 


If 

n 

12 

13 

14. 
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C2«GAN(1 !*P( J,K)/RHO( J#K| 


EIGEN" 


TFIC2I 17*17.18 


EIGENN 

17 

CONTINUE 


EIGENN 


C2— C2 


ET6ENN 

IB 

CONTINUE 


EIGENN 


r«S0tT(C2) 


EIGENN 


•R-OTDRHCJ.lURIRaBMO-RRtRn/R 


EIGENN 


01«(V(J.KWU( J.KI*4P»*UU#K| 


ETGENN 


6D01«U( J» *0 **2*(1.J*8P**2I* CV( J»*!*W( J,*| *4P| **2-C2*tl- J*****21 

EtGENN 


TF|6noi) 19*19* 20 


EIGENN 

19 

CONTINUE * 


EIGENN 


6001— 6IJ01 


ETGENN 


r-J-2 


EIGENN 


T c IN .EO. 31 WRITE (6.1C1I I 


EIGENN 

21 

continue 


EIGENN 


QZ*CRS0»TI600I) 


EIGENN 


Ol-l'l J»K!**2-C2 


EIGENN 


S 1641.(01*021 /03 


ETGENN 


SI6R»*I01-02l/93 


EIGENN 


Gnnj.nl j.«) *«2*w(J»K) **?-C? 


ETGENN 


tFir.no*! 21*21*22 


EIGEN" 

21 

CONTInhf 


EIGENN 


6«02*-6Dn? 


EIGENN 


T-J-2 


ETGENN 


IF U ,E0. 31 WRITE (6*194! I 


EtGENN 

22 

CONTINUE 


EIGENN 


04. U(j*N1«WIJ»K| 


EtGENN 


93»CRSQRT(6002! 


ETGENN 


f Tf,N7.|04*Q5 1/03 /RRDTILIR) 


EIGENN 


*1684.(04-05) /03/RR0TIL IN) 


CIGrN" 

C«.»«W...rn»»i|TF LOCAL T AND RHT EIGENVALUES 


EIGEN" 


SI61.ARSUDTOZIJ*NI*SI6B1*OTDR(KM*T)(TI ill 


EIGEN" 


SI62.ABS((0TDZ( J*N)*SISB2*DT0R(NM*m( J) 1 


ETGENN 


S1612-ANAV:(SIC1*SIG2) 


FTGENN 


ST67-ARSIS1643I 


EIG6NN 


MC4-A4St3lG441 


EIGEN" 


*16 34 «A "A *1(3163# St 64! 


FFGENN 


IF(SI6!2.LE.SIG12N) GO TO 2 


E TG C NN 



EIGENN 


JNAX1.J 


EIGEN" 


N N A *1 *N 


ETGEN" 


STP17N.SIR12 


EIGENN 


tCONSTI HI* JN AVI 


EIGCNN 


ICONS T( 12I.NNAX1 


EIGENN 

2 

CONTIN'I' 


ftgfnn 


TF(ST634.LE.SIG34H» 60 T(1 3 


FT6ENN 



EIGENN 


J**A *2 ■ J 


EIGENN 


VNAK2.N 


EIGENN 


»CnNST(131- JNAT2 


ETGENN 


ICnN*Tll41.RNA*2 


EIGENN 


SI634N.SI634 


FTGFNN 

3 

rnNTTN«jF 


GtGENN 

1 

CONTINUE 


EIGENN 

C. 


ETGENN 


DT12.0T*CON*T(9WSIG12N 


E I PENN 


D734.DETA*C0NST(9I/SI«4" 


EtGENN 


TF(O712.GT,0734! GO TO 4 


ETGfnn 


DTDT.P0NST(9!/S1612N 


ETGENN 


d?« 0?0T *DT 


EIGEN" 


«70*N.D*/DETA 


ETGENN 


TCnNSTC13!.13L*IC0NST(U! 


ETGENN 


IC0N*T(14!. 130* I CONST (14! 


ETGENN 


prt in 6 


EIGENN 

4 

'•'’ntinue 


FT6ENN 


07DRH.cnNSTe9|/RI614« 


ETGFnn 


d 7 .DTD*H*DE TA 


EIGENN 


^TDT.nr /or 


EIGENN 


ICnNSTUl».100*TCONST(lll 


ETGENN 


TC0N*T(12J.;h*IC0NST(1?I 


FTGENN 

6 

CONTINUE 


EIGENN 


RETURN 


eigfnn 


!kl *PR "A T( lH.'tp 41 HNE6AT I VE SIGNA-4AR-1 tN EIGENN 

INDICATES * 

ETGENN 


« 19MRU8S0NIC FLOW AT I**I2! 


ETG'N" 


1C4 for«AT(1H0,41HNEGATTVE SIGN A-9 AR-2 IN EIGSNN 

INDICATES > 

ETGFNN 


• 19HSU8SPNIC FLOW AT I«#I2) 


FIGENN 


END 


£»genn 


>C 
► 1 


SU4R0UTTNE C|ON(RNOSf»ANC»RZ#OROZ»ZST4*H*R99*NNAI| GEON 2 

DINENSION 7STAI200! *0807(2001. RZI2001 GEON 9 


LOGICAL L6RAV 

c CnHHDN/NUBOO/XXdOl !# YY (ICC !#NBQD* LGR A V 

c function definitions 

c 

E(A1.E*M-ABSU-RN0SEI/H) 

f U»4)..s*a*( (SIN(2.*8)-2.*SORT(Em-£( A) *•> ) ) / (E ( A I-SIN ( •> **2 I ) 
G(A*8)-A8S( A«((A*»6*SlNm*Cnmt *$QRT( A«*6-l.l I /{ A**6* CO< ( 5) 

« l«ll» 

*21 A#4*r*DfA«(6*C-S0RT(DMl.-Dt!!HD-4*4t 
‘3tA*4).EYR(-ABS(l.-l./A)/R) 
r 

C ,NS. 0.9 I IONDFAUSs FOR ANpNN AGMET I C **L ANFT 

C......H .ED. 0.0 I EQUATORIAL PLANE FOR A NAGNETfp *LANET 

IFCM « E 0* 0.O1GP TO 10 
TFIH.tT.O,D» 60 TO 2b 
IF IH .LT. OiCll 60 TO 30 
C 

r TMtS "fTftNINES THE BODY SHAPE OF A NONNAPNETTC »LANET 

C 

1RAV>2)0 

•I-3.141J926535898 
•APT-130. /PI 

Of(TAT. 4 NS/RA0IFFL0ATflM*» 
theta. » r/?. 

R].R40 

I* (I. GR AVI 60 TO 40 
C 

C....N. »ERF0«*» AN INTEGRA TI ON F R ON 3 TO 1T0 DEGRESS 

TSTiUlO.S 

•rij).R9f 

TMETAl.TMSTA 

D»D*I11 -F |R1»TNETA1I/R1 

J.7 

Tna«"1.thay-1 

do * t « i , mtn : 

C RREOI-TOR 

o.Rl*OflTAT*F|IH,TMeTAi| 

tmfta-theta#deltat 

C f n *» EP TQR 

*-Rl*0.5ROSLTATRI*CRl,TNETAll*FCR,T4ETAII 
ftRDTH.Fft, THETA) 

«;«« 

TMf TA1-THETA 

7STAI J|— ••COSCTHETA) 

»?( JI«R*SfNfTMETAI 

ORDTI il«(nRDTH*«INfTHETAl4R*C0R( THR TA|| / 

* t-ORDTHRCOS (THETA («RR« INI THETA ! I 

10*1 

5 CONTINUE 
NHAY. J-1 
*ETU*N 

c 

C USE CYLINDRICAL ROOT FOR H/«0 .LT. 0.01 

C 

33 RSTAUI-l.j 

’STMZI-lOi.G 
•M1I-R9P 
IKtUIRI 
0R0M11««.i 
PR0»I2> •0.i» 

""A *•/ 

*f TURN 

continue 

c 

C THIS DFTFRNINES the BOOT SHA»F of a YAGNtTIC OLANJT 
f 

c 

J-l 

1*6.4*6*40. 

TNAT-15® 

*1.3.14 159*6535898 
RADI-180. /*T 

DEITAT- AN6/ RADI/ FLOAT UNA »♦!! 

TMETA-RI/?, 

*1 aRNO*F 

c 

C......»ERFOt* AN INTE6RATI0N FRON 90 TO 263 DEGREES 

C 

DO 15 T-l.INAI 
C....W.RREDTCTPR 


nu«od 

f 

NUROD 

3 

GEON 

S 

GEON 

6 

GE"N 

T 

GEON 

e 

GEON 

9 

GEON 

10 

6*0* 

11 

6 EON 

12 

GEON 

13 

GEON 

14 

GEON 

1« 

GEON 

16 

G«ON 

17 

GEON 

18 

GEON 

1« 

6*0N 

Z' 

GEON 

21 

GEO" 

27 

GEON 

23 

GE"N 

?4 

6 EON 

*3 

G«D" 

28 

GEO" 

27 

GFH" 

*• 

6E0* 

29 

6*0" 

3C 

GEON 

31 

6 * P" 

32 

GEON 

33 

6 ED" 

34 

GEON 

3N 

GFflN 

36 

GEO" 

17 

GfD" 

3 F 

6* ON 

39 

GF«N 

40 

6E n N 

47 

GEON 

4? 

GEON 

43 

GEON 

44 

GE°N 

45 

GEON 

46 

GEON 

47 

GFP- 

48 

r.FD" 

49 

6fpn 

5r 

GFON 

« ♦ 

GEON 

5E 

6E0" 

53 

6 EON 

54 

GEON 

55 

Gfnn 

56 

GE"" 

5Y 

GEON 

NR 

GEON 

59 

GE n " 

6D 

GFDN 

81 

GEON 

82 

CFO" 

87 

GEON 

64 

6* DN 

65 

GFf*" 

66 

GEO" 

67 

GEON 

88 

rfdn 

69 

6E DN 

Tr 

peon 

71 

GEON 

72 

GEON 

73 

GE°N 

9 4 

GE CN 

75 

GEON 

76 

«EON 

77 

6ECN 

' 79 

DEO" 

7« 

GEON 

8P 

GEfH 

51 

CEP" 

"7 

GEON 

•3 

GEON 

84 

GEON 

85 

CEO" 

14 



170 


TMETAWHETA 

•-*l*nSlTlT*6(Rl»THETAll 

TH?TA.TM|U*OfLTAT 

c......tn**ECTo» 

»-»t+0.;*0EtTAT*(G(*l,THETAll.G(*, THETA)) 
0*DTO>6(R,TOCTA) 

■1-* 

IF (THETA .IT. PI) 60 TO 15 
? STA( JI— **SIN(TH|JA) 

»7(J1 .-R*enStTHET« 

ntOIC Jt*( -0*DTH*C0S (THETA) ***SIN( THETA I )/ 

• (-0«r)TH*51N(THETA)-**C0S<TMETA| I 

15 CONTINUE 
NHAX.J-1 
•£Tu*n 

c 

C....N.OOQV SHAPE T AH E SUPPLIED 8T USER 

Z* CONTTN'JF 
J-l 

n* 2 -c.o 
"*2-1.5 
N*0Dl»*HA00-l 
"0 25 t-l.NROO* 

"*l-nx 2 

"*1-0*2 

ox2>«i(|«n*KV(ii 

ot2.YTU4ii.rTin 

Tc (XIIT) . 6T .4.01 60 TO 25 
7STA| JI-XMU 
*7t It • Y Y | n 

01. SORT tn*l *01140X1*0X1 I 
0 2.S0*Ttr>*2 40*2.0X2*0X2 » 

O» 0 T{ J)..(n*i *02/0X1* OR 2* 01/ OX 21 /( 01 + 02 ) 

1-1*1 

25 CONTINUE 

TSTAI JI.-XX (0800) 

• M J)-YY(NOon) 

-•02 ( JU. ||)«2*( 2.C*02 *01 1/0X2-0*1*02 /OYH /< 01*02) 

NHAI.J 

*ETU*N 

*1 Y PWTT NIJ* 

TSTiui.o.a 

*2(11**96 

THFTAt.YHPTA 

AI««|(»i#M| 

r>»07m.F2(*l#l.c»1.6»All f<fj 
l«2 

tMAXMl*r*AV-| 
no 50 T*l. 10AX»1 
AS-MNITMFTa) 

Af «Cf)St THET A I 
C....’..**E0T-TOF 
A1*M(*1,M| 

K.A 

0RX.F2l*l f AS. AC»A1I 
T * ( n*x • IT. o«b I 0 *x»2.*h*as*Ai; 

•••1«Q»V*0EITAT 
™*TA.THETA.OriTAT 
AS1*X IN (THE TA) 
aci "CDS ( The t a) 
f ...... T , n»**-To* 

*5 CONTINIIF 

»11-P3I*,0) 

DPII.P2(*,A51,AC1,A11| 

TP f ORXX.LT.0.0) DR XX .2 .*H* AS1* AC 1 
*10*P"*..5*ID«X*D»XX I 
•■•l*SlOfE*DELTAT 
«.X*1 

IF (K.1T.5) 60 TO ♦« 

7STAU) — »*AC1 
*7f J|-i*ASl 

0*07 ( ll.(«* ACl*ASi*SlO*C)/<«*ASl-ACl*UO*€» 

*!•* 

J.J*1 

H CONTINUE 
MPA x. J-l 
*ETU*1 
*M0 


GEOP 

GEO* 

GEON 

CEO* 

6|00 

6100 

GEO* 

CfO* 

6604 

ce no 

6£P4 
GEON 
6 EOT 
CEfiM 
G6 0N 
6E0* 
6600 
6E01 
6EQ4 
GEON 
GEON 
GEON 
GEON 
GEO* 
6E°m 

GEON 
6600 
66-4 
6600 
«eon 
GEO* 
GEO* 
66 ON 
6EP4 
66 00 
6 * 0 * 
G6-0 
GEOM 
6600 
660* 
66 OH 
660* 
6* CM 
6600 
6600 
6600 
6600 
66 00 
6600 
6600 
6F0O 

6E -• 
F6-0 
GEOO 
6EOO 
6E0O 
CEO- 
6600 
G*-n 
GEO* 
6600 
6600 
66-0 
GEPO 

6«r*o 

G60O 

ep"N 

GE-4 

GEPo 

G600 

6*Po 

6E00 

GEtm 

6600 

GEON 

66PM 

6600 

6EOO 

6E00 


SUBROUTINE 6E0oif*5l 

CnoP0H/CLUST*/*J#Xl(2*).TXlUA).TXlTC2A) 

COOOON /I0VARB/RK.ETAI41 ),PHIP(41).0TIL (411 » DTI LSI 41). OITA. TM2 4 1 
LEVEL 2# *HO»*»U,V» V.ROP* R0B2. VlNF, WTNF »*OB*H,* 8»*N 2#«B PH.OTDPH, 

♦ 0TD> * *CT. IC0N5T,CAN,C0NST.N*E«0**»*5» A57»*SPHt.*ST,*S2T, 

COOOOO /PVARI / *HOI 24,41), *(26*411. U(24»4ll, V(24,4l). W(24,4D. 

♦ *00(41) » *047(41) » VI NF (41 ) * VTNF(4l) * 

♦ *04*H(41) * *4(41) , *42(41) * RBPH(41) * 

♦ OTOPHt24» 41). 4CTU1) » DTD2 ( 24. 41 ) * OTPR( 41 1 * ACT(41l * 

♦ IC0NST(50) » 6 AO ( 2C ) » COMST(50) ,N*E60N * *S(41) • 

♦ *52(41) » t$*Hl(4l). *ST 1 41 ) » *521(41). *S*H1T(41) 

C0OO10/XVAR4/T.2 . *HT . OT .02 • DPHI . 2IMT . 

♦ 2EN0 > PI . Al*H A , 6A0HA , SIGOA • X-ACH . TA*E1 * 

♦ T»*£2 . DISX1 » Al*H . 015*2 . 5TG0 . NP*NT . 020T » 


# 20 • THUD 

* *2 ,42 

, NPHI1 , 0PHI2 

» HT1 , MT2 

, METHOD, LAG 


•OTNP,GASCON,NPEAL»NPUNCM 
T **HT "ICONS T(4) 

TF(K5.F0,2) GO TO 12 

CALL GE-PJll, PHIP,N*Hl» 7»P8,*42,RBPH, J.RNT) 

r OHTI NUE 

CALL GEOOJ ( <5 ) 

on 1 J. 3»*T z 

T'MIil 

on 2 *■ 2 »NPHt 1 
•Hf.»m*(K| 

A.-R4 2(K)-T*(*042(K ).*47(K) ) 
4..MPHfK)-T*(tQ4PH(K)-RBPH(K) ) 

P.*0« (<)-** (K) 
i)..(*n4 7(X|-*47(K)) 

p.-(*nA*H(Y)-*BPH(X)) 

-TOM J.XUA/C 
otdphu, X)-B/C 
oro»m-i.o/c 

ACT(KW0/C 
*CY(y )«f rc 
*-c*T^.(in 
Y.»*'TM(PhI ) 

Y — **C05(*MI) 

COMTTWIE 

r-OTTOUE 

• FTI*»M 

Fon 


HPHlJ » ME Util , NRM02 . HPHOJ 

NTS . POtEO , HCOOf . RADI 

NIC , • I NF , RMni N , UINF 


XII RtnuTTNE 6E002IX3) 

COPOOH /I0VAR4/*x,ETAI 41),*HI*(41),0TTL(41),OTTL£(41I,PETA,TP(24) 
l PVEl 2. POO.P.U.V, V,*Or,*047,VINP,VTNF,*04*M,*4,RB2,R5*H f OTOPH, 

* *CT,dT 07»0TDR#ACT»I C005T, 6 AO, CONST, N* E600, *S, RS 2. RSPOf, *ST,RS ?T, 

* RX*HT T 

-PN-00 / PVA *4/ >00(24,41), P(24,41), 0(24,41), V(24,41), W(24,41), 

* *04(41) , *082(411 • VINE (41) , «TnF(41) , 

* >04*0(41) , *4(41) , *42(41) , *4*0(41) , 

* OTDPO(24,41), Semi) , DTO 7 ( 24 , 41 ) , OTO* ( 41) , ACT(41J , 

* ICON ST ( 59 ) , CA0(2t) , CONST(53) ,N*6C0N , *S(41) , 

* *57(41) , R5PMTU1), *5 T ( 41 ) , *5?T(4t), *XPHTTI41I 

CnoM-N/5VA»B/T,2 , *01 , OT ,02 , 0 POI , 7INT , 

* 2EN0 , PI , ALPHA , CAPPA , SIGpa , XPACM , TA PE 1 , 

* T APE 2 , 015*1 * ALPO , 0ISK2 , SIGN , np*KT , 02OT , 

* -70PH , 20 , TOWO , TOLD , Tm# , m , TTtiW , 

* TT«L , R2 .42 , NlPMI , NTT , KPO| , NlTE* . 

* NPOI , HP0I1 , NPHI2 , HPHI3 , NPH-1 , 0*0*2 , NPOM , 

* NT , NT1 , NT2 , NTJ , PHTP1 , NCOME * RADI , 

* PMTP , PETOOD, lag , NIC , P I N p , ROOTN , UINF , 

*otnp,ga$cpo,o*eal,n PUNCH 

00 1 K-1,NPHI2 
PHT.*OIP(X) 

GO TO (3,2I,R3 

CONTINUE 

*04(K)-*S(K) 

•04I(NI-*S7U) 

•04P0(K).*5PHT(K) 

GO TO 4 

CONTINUE 

*—8 (X).fST(K) 

»047(K).»5IT(K) 

•0BPH(X).*SPOIT(X» 
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* Continue 

1 CONTINUE 

•FTURN 
f NO 


GEONZ 

GEON2 

GEO"? 

CEOtlZ 


SUBROUTINE GEriH3(KT#rHTR,NBMI#7#RB#RBT,R8PM#IR«NT1 
Cn*»NONMOEaU*CFl, Cf 2# HF, ZTRAH, Dims 

*“0N"0N / T B ANS F/ ANACH,GA"F#K«Z#PlINFtRlINF,VlINF.P9l(2t*#31# 

♦ RHn90(20»3 I.U90I 20*31# V9Q ( 20# 3 1 # V90( 20 # 3 1 . *S 90 (31 # 

• »SZ90(3l.RSRH90(31»HRn#R9ft,)llNIT 
LEVEL 2. RB#RBRH,R8Z 

OTNENSTON R 3(411 • *BPH( 411 # R3Z( 41 >»PHIR( 411 
OTNENSTON ZSTA( 200UDR9 7(2051. *1(200) 

C 

C CONSTANTS 

C 

TF(«T.NE.i| 60 TO 1 

6*2-1. 5 

AMG-B9.5 

NST-1 

M«HRO 

•NOSE -1# 

CALL GEPH(RNQSE#AN6»RZ#DRD7#7STA.H#R90»NNAV) 

N*A*1-N-AX-1 

•FTtJ*N 

C 

*INO CORRECT Z INTERVAL 

c 

1 conti nuf 
N»NST 

T * IT.tT. 7STACNSTU GO TO 22 
00 l! N-NSTfN**AVl 
TF ( 7 *L T# 7 S T Al N*1 ) ) GO TO 20 
JB CONTTNUf 
N-NNAT1 
20 CONTINUE 
“ST-N 

11 CONTINUE 

®%00r.«>Z(N»*IRZtN*:i-R7(Nn MJST4(N*l)-7STA(Nn *(7-7STA(N)) 

R»nl)V7-PR0MNU*0R!mN#l l-OROZ I Nil I ( Z*TA( N*11-* STA I Nil • 1 7-TSTA I Nil 

ROnD»M-0.0 

00 in t-siHRMl 

RM|K).»*Onv 

9 B RM( IT) .DBQQPH 

• •MKi.RRnorr 

C0NTTN11C 
00 3* K-l» 2 
"•6-< 

T -NPHMK 
N-NPHl-K 
*0(10 .RR(") 

RMI1-RMN) 

rb?(*).rbz(-) 

»BPM(K)— RBpNtlM 

36 CONTINUE 
return 
FNO 


GEO-3 

JOE 

transf 

transf 

transf 

GE0N3 
6EON3 
GE0N3 
GE"N3 
RE0N3 
GEO-3 
GE0N3 
fi«0N3 
6E0N3 
6E0"3 
GE0N3 
6E0N3 
FEO-3 
GECIN3 
GE^na 
GE0N3 
«E»*M 
6EP-3 
RE0N3 
GEO-3 
GEHN3 
GE n "3 
G?on 3 
GE0H1 
Gc 0" 3 
GE0N3 
RE0N3 
GE r N3 
CE0N3 
GE0N3 
PE"-3 
600*3 
GfPN? 
GE0N3 
GEPN 3 

GE0N3 
GEPH3 
GEPN3 
GE0N3 
GEONJ 
GE0N3 
GE0N3 
PEONS 
6*003 
GEPN3 
GE0N3 
PEON 3 
6 EON 3 
GE0N3 


SUBROUTINE INITA INTTI 

C0NNQN/Cl'ISTR/RJ#Xl(24) #TXJ ( 24 1 #T*IT( 24 1 CLUSTR 

CpN NON/ENT* n/5(Al)»ZBS» ZFLO.ITRRTB# ITRRTF.mCASE#NTO$CI$ ENTRO 

C ONNflN /l3VARB7RK»ETA(41)»RHIP(41)*0TIL(41)*r)TlLE(41)f0ETA#TR(24) I0VAR3 
^nNNON/JOE7ZLl#CFl»CF2#ZlF»ZT«AN,OZTRAN JOE 

l EVEl 7, RHO.P»U#V, V.IOB.ROBZ. VINF,VTN e .R0»RH»RB.fi37.EBPH.7TDPH. RVARB 

* RCT.OTPZ, OTOR, ACT#ICONST#6AN#CON$T#NRf6nN#RS#RSZ#RS»HI#RST#RS7T# PVABB 

• ISR4TT PVAR3 

CPnnon fPVARB/ RHO( 24*41). 9(24,41). U(24»41l# V(Z4.411# W(Z4#41>. PVARB 

* *0*141) » R0B7I 41 I » VTNFUl) * WINFI4I1 « PVARN 

• t QNP Ml 4 1) . RBI 41) » RB7I41) # RBRHUll * PVARB 

* OTOM(24#4U. BCT141) . OTOZ ( 24. 41) , OTOR I 41 1 * ACTI41) , RVARB 

• TCDOIST (503 . GAN 1 20) * CON$T(53) » Nt?GON » RSUD » RVARB 

* t$7 ( 41 1 • RSPHTUM* RSTI41) , RS7TU1U RSPHTTUl) RVARB 

CnMH0N/SVARB7T#Z # PHI * DT .07 * D*H I » ZlNT • SVARB 

• 7E*0 * PI . ALPHA » GANNA . SI GN A # XNACH . TARE1 . SVARB 




• TAPF2 * 0ISK1 • AlPH * OlSrZ * SIGN , NRR NT * OZOT 

• OZDPH # ZH * TNWO • TNLD . T"W , TNI » TTNV 

• TTNL » HZ * BZ * NIPHI * NIT , RPHI * NITER 

• NPHt , NRHI1 * NRHI2 . NPHI3 » NRH"1 , NRHNZ # NPHN3 

• NT , NT1 * NTZ , NT 3 • PMTFO . NCONE * RAPT 

• PMTF . NETHOO# LAG , NBC * PIN" # RHQIN , IITNF 
♦QlNF# GASCON, MREAt'KRUNCM 

CPNNOn (TRANSFf ANACH,GA"F*NH2#P1INF*R1INF, V1INF,P9C< 20.31# 

• RH0901 26# 3 l#U90 1 20*3 )» V9(.t 20. 3 1 >U9(t( 2C>3) # RS90 1 3 ) » 

• RS 790(3), RSPH90I 31 »H«a,R90» VINTT 
RADI-57. 29578 

•T-3. 14159263 

7INT-TIMIT 

T *7 TNT 

IFNO-ZLf 

ALPMA-j.O 

NIPMT«» 

NIT.RNZ 

YNACM-ANACH 

OANNA-GAN* 

AL»H- ALPMA/RAOI 

SIGN* SIP NA/RAOT 

PHIF-1BI .0/RAOI 

NRMI-NlPHT+3 

NPHI1-NPh!*1 

nphT2-N0MT*2 

NPHNl-NRMT-1 

NPMN?*NRHT-2 

NT.NTT4? 

NT1 -NT*) 

NT2-NT*2 

TCONSTI1UI 
TCPNSTI 101-1 
TRPNT-IC PNS T( 4) 

If (TC0NSTI4BUNE.il ICONST (51-0 
LAG-! 

OETA.HfR/FLOATINTRMI) 

opmI-OETA 

OT-1. VFIQATINT-I) 

OZ-07OT.0T 
0 7 D PM.pt 7 OE T A 
GAN(l). (GANNA-1, 01*0.5 
GAN(2)-PAP( 1) /GAN4A 
C..NERTOT0 N al CLUSTERING 
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Catalog page number index for plasma streamline, velocity magnitude, 
density, temperature, and unit magnetic- field maps for 
various solar-wind flows past planetary ionopauses 
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Table 1.- Ordinates of Various Ionopause Shapes 
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Table 1.- Concluded. 
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(a) Former method. 



Figure 2.- Comparison of former and present computational 
procedures for determining the gasdynamic flow properties 
of solar wind-magneto/ionopause interactions. 






Physical plane Computation plane 


Figure 3.- Transformation from physical domain 
to rectangular computational domain. 
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Figure 4.- Illustration of capability for providing an additional 
flow-field segment to the obstacle nose solution in the 
computational procedure for determining the gasdynamic 
flow properties of solar wind-ionopause interactions. 
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Figure 5.- Illustration of quantities used 
for streamline calculation. 



Figure 6.- Illustration of quantities used for magnetic 
field-line calculation in the plane of magnetic symmetry. 
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Figure 7.- Illustration of the components of the 
three-dimensional magnetic field. 
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R/R 



Figure 13.- Illustration of typical flow-field grid density for 
gasdynamic solution; M = 3.0, Y = 5/3. 
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Figure 14.- P-V Orbit 6 trajectories and observational bow shock crossings as viewed 
in solar- wind coordinates based on inbound and outbound interplanetary solar - 
wind directions; also, various bow shock shapes for different 
interplanetary solar- wind conditions. 
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Figure 17.- P-V Orbit 3 trajectories and observational bow shock crossings as viewed 
in solar-wind coordinates based on inbound and outbound interplanetary solar-wind 
directions; also, various bow shock shapes for different interplanetary 

solar wind conditions. 
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Figure 19.- Comparison of observed (QMAG) and theoretical time histories for the 
magnetic field for P-V Orbit 3 based on inbound and outbound interplanetary 
solar-wind conditions using gasdynamic solutions - 7.38, 7-2.0 for 

inbound and M m - 5.96, 7 = 2.0 for outbound calculations. 






Figure 19.- Concluded. 
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